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Introduction 


The objective of the database development task is to produce a propulsion database 
which is easy to use and modify while also being comprehensive in the level of detail 
available. The database is to be available on the Macintosh computer system. The 
task is to extend across all three years of the contract. Consequently , a significant 
fraction of the efTort in this first year of the task was devoted to the development of 
the database structure to ensure a robust base for the following years’ efforts. 
Nonetheless, significant point design propulsion system descriptions and 
parametric models were also produced. 

It is desirable that the database be usable for both the preliminary analysis of whole 
classes of propulsion systems (e.g., a booster engine using LOX/RP for a wide range 
of thrust levels) and for the analysis of existing propulsion systems (e.g., SSME, RD- 
170, etc.). Since it would be very difficult to fulfill both these uses with only one 
database structure, it was decided to develop two separate tools, one for each type of 

usage. 

The first usage (analysis of classes of propulsion systems) is normally implemented 
by a series of unrelated tools written as spreadsheet models, or as dedicated code 
(most commonly written in Fortran) and running on mainframes, workstations, or 
PCs. These tools normally can not communicate with each other and are written 
without common structure - they calculate weight breakdowns to different sets of 
components even for similar engine types and calculate performance in different 
manners. This usage requires large amounts of calculations, methods of data 
presentation unique to each propulsion type (and sometimes to different engine 
classes within a type), and benefits from automated parametric data generation and 
automated preparation of graphs (e.g., weight versus mixture ratio). 

The commercial tool type which comes closest to meeting these needs is a 
spreadsheet, particularly one with good graphing capabilities, an extensive 
scripting or macro language, and the ability to access external code written in 
different computer languages (especially Fortran). Both Resolve and Excel were 


2 



considered and Resolve was chosen because its scripting language is extensive and 
very easy to use even by casual users, and because its charting capabilities 
(including the scripting of all elements of each chart) were more extensive than 
Excel (at least until Excel 4 which was not available to the author at the time). It 
subsequently became known that Resolve also puts fewer limits on the use of 
Fortran externals than Excel. This second usage type will be referred to throughout 
the rest of the report as a “parametric propulsion database”. 

The second usage can be implemented with a classic database structure where a 
large number of pieces of information (as numbers, text blocks, and 
pictures/graphics) about each of a number of specific existing or conceptual 
propulsion systems is stored. The information describes the single design point 
engine with some information about operation at off-design conditions. Each 
propulsion system can be stored as a record with the individual pieces of 
information stored as fields within the record. Minimal calculation is needed, but 
the ability to sort, group, and aggregate (i.e., all engines using RP with vacuum 
thrust above a specified number) is needed. Consequently, for this usage, referred to 
throughout the rest of the report as a “propulsion system database” a commercial 
database was chosen. Both 4th Dimension and FileMaker Pro were considered. 
FileMaker Pro was chosen because it is much easier to change, both in structure 
and output, even by casual users. It is also much more readily available because of 
its much lower cost, cross platform capability (Macintosh and PC with Windows), 
and lack of need of dedicated, experienced users. 


Each of the two propulsion databases, parametric propulsion database and 
propulsion system database, are described in the rest of the report. The descriptions 
include a user’s guide to each code, write-ups for models used, and sample output. 
Because of the large number of pages of figures in relation to the length of text, this 
report is structured with the text all at the front and then followed by the 90 pages of 
figures relating to the parametric propulsion database, which is in turn followed by 
the 151 pages of figures relating to the propulsion system database. 

An appendix includes three technical notes describing how to attach external code 
written in Fortran to both Resolve and to Excel. These procedures were developed 
during this year’s effort with the Excel work done on Rocketdyne resources and the 
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Resolve work done on a combination of contract and Rocketdyne resources. 
Interactions with tech support at Claris (the publisher of Resolve), Microsoft (the 
publisher of Excel), and at the publisher of the Macintosh Fortran compiler used, 
indicate that the use of Fortran externals with either Resolve or Excel breaks new 
ground. This capability will be extremely useful for the parametric propulsion 
database throughout the rest of this effort and should be very useful in general to 
anyone within the aerospace community using Macintosh computers. 
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Parametric Propulsion Database 


The parametric propulsion database was developed using the Macintosh 
spreadsheet Resolve, version l.lvl (published by Claris). It was developed on a 
Macintosh II fx running system 7 with the tuneup kit. It was developed using an 
Apple 13 inch color monitor. It has been checked in black and white mode, on a 
limited number of other Macintosh computer types, and with system 6.0.5. Two 
problems were encountered during these checks: some color choices were changed 
to work in black and white mode, and the Fortran externals were recompiled in two 
forms so they would work on Macintoshs without math coprocessors, but would also 
take advantage of the coprocessors when present. 

The parametric propulsion database consists of two files and one folder (which in 

turn contains three files): 

Parametric Database 

Library 

Externals 

OHSCC 

ORPGG 

NuclearRkt 

The file “Library" and the folder “Externals” must be in the same folder as the 
application “Claris Resolve”. The file “Parametric Database” can be placed 
anywhere. None of these file or folder names can be changed because they are used 
explicitly by name in calls by scripts in the database. The file “Parametric Database” 
is a Resolve spreadsheet which is double-clicked to run the parametric propulsion 
database. It uses the file “Library” to update its worksheet script. “Library” contains 
a number of functions which are called by other scripts. The file Library is 
actually only needed when changes are made to the worksheet script. The program 
will run without “Library” (although two error messages will occur) but changes 
cannot be made, even temporarily, to the worksheet script. The folder “Externals” 
contains the three compiled Fortran codes (with embedded hooks written in C - see 
Appendix) currently used by the database. 
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The model rannires the fonts “Bookman”, “New Century Schoolbook”, and 
“Helvetica” be installed (Postscript or True Type). If they are not available then most 
screens and output will be difficult to read and many words will not be fully visible 
in their defined columns. All three of these fonts came with the various Apple 
LaserWriters (and many other printers) and are readily available. The use of Adobe 
Type Manager (ATM) or True Type (with the True Type versions of the fonts) is 
highly recommended to improve the readability of the screen. 


To run the database simply double-click on the file “Parametric Database”. The 
current version (version 1.4, 5 April 1993) contains the following models. 

Solid Fuel Boosters 

Large Motors (328K-8.9M lbf) using ASRM (ANB3652) propellant 
Large Motors (328K-8.9M lbf) using neutralized Mg (DL-H435) propellant 
Medium Motors (62K-328K lbf) using neutralized Mg (DL-H435) propellant 
Large Motors (328K-8.9M lbf) using non-chlorine (PGN/AN/AL) propellant 
Hybrid Boosters 

Large Motor (380K-21M lbf) using O 2 as oxidizer and HTPB and escorez as 
fuel - pressure fed 
Cryogenic Engines 

Large (100k-2M lbf) LOX/H 2 engines using staged combustion cycles 
Hydrocarbon Engines 

Large (500K-3M lbf) LOX/RP engines using gas generator cycles 
Nuclear Thermal Propulsion 

NERVA derived prismatic fuel solid core rocket. 

The solid fuel rocket booster and hybrid booster models are implemented as 
spreadsheet models, while the liquid engines and the nuclear engine are 
implemented as Fortran external functions. 

The basic philosophy of the model is to navigate a large spreadsheet by means of 
buttons that the user “clicks”. The buttons invoke scripts which change what portion 
of the spreadsheet is displayed (i.e., moves to the next “screen”), change the screen 
scaling to make the display fit, write spreadsheet formulas and data, or call 
external code. The buttons are where most of the “action” occurs and where most of 
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the calculation is done. The model is structurally dependent on scripting and the 
use of Fortran externals. About 50 pages of scripts are used and over 130K of 
compiled Fortran external code is used. 

Code Overview 

Figure 1 shows the result of double-clicking the file “Parametric Database”. 
Pressing the continue button takes the user to Figure 2 which is the main 
navigation screen. Only the Cryogenic, Hydrocarbon Fuels, Solid Fuels, Hybrid RB, 
and the Nuclear Thermal buttons are currently active. The Return button, which is 
present on all screens, always returns to the previous screen. 

Tracing the models under the Chemical label, pressing the Ciyogenic button brings 
up Figure 3 and pressing the Hydrocarbon Fuels button brings up Figure 4. 
Pressing either of the Large LOX/H 2 or Large LOX/RP buttons brings up Figure 5. 
The Figure will be slightly different depending on which button was pressed. Since 
the LOX/H 2 and LOX/RP models are implemented as external Fortran code, there 
are no equations under the numbers in the cells as would be expected in a 
spreadsheet. Because the same piece of spreadsheet “real estate” (i.e., the same 
cells) are used for both the LOX/H 2 and the LOX/RP models, the Calculate button in 
the upper left side of the screen must be pressed to produce numbers for the weights, 
lengths and performance. The independent variables, and the ranges through 
which each can be varied and remain within the validity of the model, are shown in 
the upper part of the screen on the yellow background. To examine a new case, 
change any or all of these independent variables and then press the calculate button. 
New values for the results will appear in the cells. 

Pressing the “English Units” button changes the button name to “Metric Units” and 
changes the results (only) to metric units. Pressing the button a second time 
reverses the process. The Print (Report) button sets up for printing the page (without 
buttons) in portrait mode and stripped of color. The Print (Briefing) button sets up 
for printing the page in landscape mode and stripped of color. These buttons work 
the same on other screens. The page setup dialog box will always come up because 
Resolve script does not have a means to specify landscape versus portrait mode, so 
the user must click the appropriate icon. 
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The model can be used to generate parametric data and produce a table and selected 
graphs of that data. To do so, press the Graphs button and the parametric 
generation screen of Figure 6 will appear. This screen shows the variables which 
can be used for parametrics as titles within yellow buttons. The parametncs 
possible are one dimensional, only one variable can be varied at a time. To make a 
parametric run using one of the independent variables that are shown on the yellow 
buttons, choose a range of the variable to vary. Input its starting value and its 
ending value in the column "Variable to Change" (within the limits that are shown 
under each yellow button), along with the number of discrete points (11 maximum) 
to calculate (the variable values must be evenly spaced throughout the range which 
is why only the number of points, as opposed to the actual values, is input). 

The column "Other Independent Variables" shows the values that will be used 
during the parametric run for the variables other than the one being varied. Use 
this column to change these values to those desired for the parametric run. These 
values start as the values from the previous screen, but they will change as 
parametrics are generated taking on the last value of the range used if they have 
been used in a previous parametric run. They should always be checked. When 
satisfied that the input is as desired, then press the yellow button that has the name 
of the variable that was chosen to vary. Pressing that button actually replaces the 
chosen independent variable in the screen of Figure 6, reads out the results, places 
them into a table and graphs, changes the variable again, reads out the results 

again, etc. 

After the yellow button is pressed to generate the parametric run, a portion of 
Figure 7 appears. This table can be printed (Figure 8) and graphs can be 
individually accessed by pressing the yellow Weight, Lengths, and Performance 
buttons. Examples of the graphs are shown as Figure 9-11 and an overview of the 
table and graphs is shown in Figure 12. 

The route for the Solid Fuels goes back to Figure 2 and when the Solid Fuels button is 
pressed, Figure 13 is seen. These four buttons invoke the different models used for 
the different solid rocket boosters. They actually use a script and rewrite the 
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equations in the cells shown in Figure 14. The same piece of spreadsheet “real 
estate” is used for each model (except the Medium Motor model) but with new 
equations, titles and words for each different model. Because the solids use 
spreadsheet models, when an input is changed in Figure 14 the result changes 
immediately and there is no “Calculate” button. The “English Units” button changes 
to “Metric Units” when pressed and changes the output (only) to metric. It reverts to 
“English Units” when pressed again. 

If the Graphs button is pressed, Figure 15 appears. This screen allows the user to 
generate parametric tables and graphs by varying any of the independent variables 
as was described for the LOX/H 2 and the LOX/RP models. The results of the 
parametric run appear after pressing the yellow button with the title of the variables 
chosen and are seen as a portion of Figure 16. The table can be printed as shown in 
Figure 17, and the graphs are accessed, individually, by pressing the Weights, 
Lengths, Mass Fraction, or Performance buttons. They can be printed when 
accessed as shown in Figures 18-21. Figure 22 shows an overview of the table and 
graphs. 

The route of the hybrid rocket booster model goes back through Figure 2 where 
pressing the Hybrid RB button brings up Figure 23. The buttons on Figure 23 work 
the same as those described for the other models. Pressing the Graphs button brings 
up Figure 24 where parametric runs can be made as described for the other models. 
After generating a parametric run a portion of Figure 25 appears. The table can be 
printed or the graphs of Figure 26 accessed and printed as shown in Figures 27-31. 

Tracing the Nuclear Thermal button, pressing it brings up Figure 32 where only the 
Solid Core button is currently active. Pressing Solid Core goes to Figure 33 where 
only the Prismatic Fuel button is active. Pressing it goes to the model for the NERVA 
derived nuclear thermal rocket (Figure 34). This model uses an external Fortran 
code and thus there are no equations under the numbers in the cells. Instead the 
user changes the inputs as desired and then presses the “Calculate” button to 
produce changes in the output. 
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Indindaal Models 


Solid Fuel Models 

The design equations are the result of a multivariate regression of a matrix of 
designs produced by Thiokol’s Solid Rocket Motor Automated Design Program 
(ADP). The results of these equations produce solid rocket motor preliminary design 
data within the ranges over which the regression was performed. There are a 
number of assumptions underlying the motor equations. These are factors which 
were held fixed during the creation of the database upon which the design equations 
are based. 


These equations assume T650 graphite epoxy filament wound cases. The web 
fraction, or proportion of the case diameter filled with propellant, was held constant 
at 0.75. Also held constant were the burn rate exponents, propellant densities, and 
the ratio of throat to port diameters for the respective propellant types. Nozzle 
submergence (defined as the nose to boss distance divided by the nose to nozzle exit 
distance) varied from 5 percent to 30 percent. The nozzle length reported in the 
design equations is from the aft case boss interface to the end of the nozzle, i.e., 
external nozzle length. A finocyl grain design was used for all propellant types. The 
finocyl design has a finned grain (typical of the Shuttle Solid Rocket Motor) for part 
of the port length and a simple cylindrical port for the remainder of the port length. 
Silica filled EPDM internal case insulation was used. The booster elements were 
divided into six categories: nose cone, external insulation, forward skirt and 
attachment, aft skirt and attachment, separation system, and miscellaneous which 
includes electronics, instrumentation, raceway, thrust vector control system, etc. 


The motors were all designed to a thrust trace similar to that of Figure 35 (which is 
that of the current space shuttle solid rocket boosters). 


The parametric design equations were formulated as follows: 

• A proprietary Thiokol design program called ADP (Automated Design 
Program) was used to generate a matrix of designs based on a set of input 
data spanning predetermined parameter ranges. 
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• The ADP determined a design for each set of the input parameters by 
using the in-house design codes for the case, insulation, nozzle and 
ballistics and the NASA-LEWIS thermochemical program. 

• Once the matrix of designs was created the Number Cruncher statistics 
package was used to do a multivariate regression on the independent and 
dependent variables. 

The generation of the parametric equations followed two steps. First, the logarithms 
of each independent variable and the dependent variables were taken. A regression 
was performed on the logarithms resulting in a factor with terms to various powers. 
This factor was used in a linear regression along with other terms to give an 
expression for the dependent variable in terms of the independent variables. 
Regression variables were based upon the physics of the problems plus input from 
Number Cruncher as to what the most meaningful variables would be. 

ASRM Pronellant. The ASRM (ANB3652) type propellant utilizes aluminum as the 
primary fuel with an ammonium perchlorate (AP) oxidizer. The normal 
formulation for ASRM propellant is shown in Figure 36. The predominant exhaust 
species produced by this propellant at the nozzle exit plane are shown in Figure 37. 
This propellant is non-neutralizing with an exhaust containing approximately 21% 
hydrogen chloride. Figures 38 and 39 show sample model outputs, Figure 40 shows 
the equations used, and Figure 41 shows the script used to implement the model. 

Neutralized Mtr Pronellant. The DL-H435 propellant is a clean propellant utilizing 
magnesium instead of aluminum as the primary fuel in order to reduce or 
eliminate the hydrogen chloride (HC1). Reference 1 contains a full discussion of this 
propellant. Reference 1 also shows, by means of small motor test results, that this 
propellant will fully neutralize the HC1 byproduct (see Reference 1, Table IV) in the 
exhaust plume. The nominal formulation for DL-H435 magnesium clean propellant 
is shown in Figure 42. The predominant exhaust species produced by the DL-H435 
propellant at the nozzle exit plane are shown in Figure 43. Most of the neutralizing 
reaction occurs in the plume. The amount of the neutralization is a function of 
ambient conditions and mission parameters. The species at the nozzle exit plane, 
however, represents a minimum estimate of total neutralization of HC1. Figures 44 
and 45 show sample model outputs, Figure 46 shows the equations used, and Figure 
47 shows the script used to implement the model. 
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Earlier in the contract a preliminary set of equations was generated using a 
different set of data and different input ranges. Although the new equations replace 
the old ones and the new model breaks the weights into different sets of components, 
the old model went to a lower thrust level. Consequently, the lower thrust results are 
also included in the parametric database as the “Medium Motor” button for the 
neutralized Mg propellent which is the one case where they are available. Figures 
48 and 49 show sample outputs and Figure 50 shows the script used to implement 
the equations. 

Nnn-Chlorine Propellant. The non-chlorine (PGN/AN/AL) propellant substitutes 
ammonium nitrate for ammonium perchlorate as the primary oxidizer in order to 
eliminate the halogen byproducts of combustion associated with the use of 
ammonium perchlorate (AP) oxidizer and uses PGN (PolyGlycidalNitrate), an 
energetic binder, to achieve performance close to the current RSRM propellant. This 
propellant is in the development stage. Thiokol has overcome the mqjor impediment 
to using PGN binder in large motors, but this type of clean propellant is still 
developmental. The nominal formulation for non-chlorine propellant is shown in 
Figure 61. The predominant species produced by the non-chlorine propellant at the 
nozzle exit plane are shown in Figure 52. Figures 63 and 54 show sample model 
outputs, Figure 55 shows the equations used, and Figure 56 shows the script used to 
implement the equations. 

Hybrid Rocket Boost er Model 

The hybrid model used included a T650 graphite epoxy filament wound case for the 
fuel grain and an aluminum 2219 oxidizer tank with a pressure feed system. The 
fuel is a combination of HTPB polymer and escorez. The escorez is used to increase 
the fuel’s density. The propellants are shown in Figure 67. Figure 58 shows the 
m ss* fractions of the exhaust species at the nozzle exit for both a mixture ratio (O/F) 
of 1.8 and 2.8. One major advantage of a hybrid system can be seen from the figure: 
there are no chlorine or chlorine compounds in the exhaust. This alleviates many of 
the environmental concerns normally associated with solid rocket motors. The 
hybrid system can also be readily shut down and restarted. 
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The regression process described for the solid models was also used by Thiokol for 
the hybrid designs, although the variables in some cases were different. One notable 
difference was that case diameter was a dependent variable in the hybrid model, 
whereas it was an independent variable in the solid models. A special grain design 
must be used in the hybrid designs. This grain was driven by the performance 
requirements and required a specific diameter just to fit the grain geometry. Two 
new independent variables were added: the maximum oxidizer flux and the 
mixture ratio (oxidizer to fuel ratio). In a solid rocket motor there is no oxidizer flux 
and the oxidizer/fuel ratio is invariant, fixed by the propellant formulation. 

The hybrid model was simpler than the solid models in that all of the subcomponent 
weights and lengths were not calculated. However, the nozzle, total tank/case, 
motor, and stage lengths, as well as 0 2 and fuel used weights were calculated. The 
motor mass fraction was also calculated empirically, allowing the calculation of 
total motor weight. The same stage component weight relations were used for both 
the solid and hybrid models. Figures 59 and 60 show sample model outputs, Figure 
61 shows the equations used, and Figure 62 shows the script used to implement the 
equations. 

Liquid a nd Nuclear Models 

Pprformance. The LOX/H 2 , LOX/RP, and Nuclear Thermal models all use the 
same approach for performance prediction. These models employ the JANNAF 
Simplified Performance Prediction Methodology detailed in CPIA Publication 246. 
Starting from ODE (one-dimensional equilibrium) thermochemical codes, tables of 
theoretical specific impulse and C-star are prepared versus chamber pressure, 
mixture ratio, area ratio and inlet propellant enthalpy. When the system is 
modeled, a table-look-up is used to obtain the theoretical I sp and C-star values. The 
chamber temperature is used in place of mixture ratio for cases where there is no 
mixture ratio (e.g., H 2 in the nuclear model). 

Performance efficiency terms are then used to represent the various loss 
mechanisms present within the engine system. The method uses the following 
efficiency terms: 
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C-star: A measure of the combustion and mixing efficiency in the 
combustor. How much of the propellant’s chemical energy is 
actually available for heat. 

Divergence: A measure of the geometric losses associated with a finite 
nozzle having a finite turning angle. How much of the exhaust 
momentum is lost by not being turned parallel to the nozzle axis. 

Boundary Layer: A measure of the drag momentum loss caused by the 
viscous boundary layer within the thrust chamber. 

Kinetic: A measure of kinetic losses during the expansion process. 

Rocketdyne uses a table-look-up to compute kinetic losses based on chamber 
pressure (P c ), mixture ratio, throat area, and area ratio. The tables used are the 
results of detailed ODK (one-dimensional kinetic) code runs for the particular 
propellant combination (or heated H 2 ) being studied. For divergence losses, a curve- 
fit correlation is used which relates divergence efficiency to P c , nozzle percent 
length, thrust, and area ratio. The boundary layer losses are estimated by curve fits 
of the results of rigorous boundary-layer codes (such as BLIMP or TBL). The C-star 
losses are input based on the results of detailed cycle balances. 

The other effects of the thermodynamic cycle is input by using detailed cycle 
balances and then using the resulting thrust chamber mixture ratio instead of the 
engine mixture ratio. 

For the specific LOX/H 2 , LOX/RP, and Nuclear Thermal performance models used 
here, the further effect effects of the thermodynamic cycle throughout the range of 
variables was accounted for by forcing the result at a single design point through a 
known value (e.g., SSME, F-1A), then using a factor on the delivered specific 
impulse at other conditions. 

Weight. The weight for the LOX/H 2 model is based on the reference SSME design 
point. The individual component weights are then scaled with flows, thrust, P c , 
area ratio, etc. The scaling methodology is based on engineering parameters and 
physical quantities. It employes neither point designs nor curve fits. 
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The weight for the LOX/RP model is based on the reference F-1A design point. The 
individual component weights are then scaled with flows, thrust, P c , area ratio, etc. 
The scaling methodology is based on engineering parameters and physical 
quantities. It employes neither point designs nor curve fits. 

The weights for the nuclear thermal model are based on four design points (at 25K, 
50K, 75K, and 100K) for the reactor and additional components. These points were 
then incorporated into a table lookup and interpolation routine. 

T .inn id Models . A model of a LOX/H 2 engine using a staged combustion cycle was 
made based on SSME experience, and scaling a set of weights based on a SSME 
baseline. Figures 63 and 64 show examples of model output. 

A model of a LOX/RP engine using a gas generator cycle was made based on F-l and 
F-1A experience, and scaling a set of weights based on F-1/F-1A weights. Figures 65 
and 66 show examples of the model output. 

Nuclear Thermal Rocket Model. The design work done at Rocketdyne and 
Westinghouse over the past few years, including work for NASA/LeRC during the 
last year, has produced a series of detailed conceptual designs for nuclear thermal 
rockets based on the NERVA experience base. Those design results were included in 
a table and combined with performance data to produce a model for a NERVA 
derived nuclear thermal rocket. The model is based on using a prismatic fuel form. 
Because this is a concept derived from a specific reactor design and using one fuel 
type (graphite matrix with UC 2 beads with ZrC protective fuel element coating), 
temperature is fixed. Only thrust, chamber pressure, and nozzle area ratio are 
variable. Also the thrust range is limited from 25,000 to 100,000 lbf. Figure 67 shows 
a sample output of the model. 

Changin g the Worksheet Script 

The worksheet script is a collection of fimctions which are called by other scripts. It 
is essentially a library. To make changes to the worksheet script, even temporarily, 
requires that the file “Library” be modified. The procedure is: 
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1. Select any spreadsheet cell . 

2. Go to the “Script” item in the menu bar and select “Unload Script 

and “Library” ...... 

If “Unload Script” is grayed in the menu bar then skip this step 

3. Go to the “Script” item in the menu bar and select “Open Script...” 

4. Use the resulting dialog box to find and open the file “Library” 

5. Make the desired changes 

6. Go to the “File” item in the menu bar and select “Save 

7. Go to the “File” item in the menu bar and select “Close” 

8! Go to the “Script” item in the menu bar and select “Worksheet 
Script” 

9. Highlight the following four lines with the cursor: 

On Activate 

Attach Script “Library” 

Get Script “Library” 

End Activate 

10. Go to the “Edit” item in the menu bar and select “Copy” 

11. Go to the “Edit” item in the menu bar and select “Select All” 

12 p ress ^ key 

13. Go to the “Edit” item in the menu bar and select “Paste” 

14. Go to the “File” item in the menu bar and select “Close” 

15. Press any active button which forces the program to attach the file 
“Library” and make it the current “Worksheet Script”. 
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Propulsion System Database 

The propulsion system database was developed using the Macintosh database 
FileMaker Pro, version 2.0vl (published by Claris). It was developed on a Macintosh 
II fx running system 7 with the tuneup kit and using an Apple 13 inch color 

monitor. 

The propulsion system database consists of two files: “Prop System DB and Prop 
System DB-Pictures”. They can be placed anywhere. The names of the two files must 
not be changed since the first is used as a look-up file by the second, and the second 
is referenced by name in scripts in the first. “Prop System DB” is the main file which 
contains all the data except two picture fields for each record. The two picture fields 
were separated because they are often scanned images using significant amounts of 
memory, and also by having two files, even when many more propulsion systems 
are included in the database, the FileMaker limit of 32 Meg per individual file 
should be avoidable. 

The engine systems currently included in the propulsion system database are: 

Space Transportation Main Engine (STME) 

F-l 

F-1A 

J-2 

J-2S 

SSME 

RD-170 

Integrated Modular Engine (IME) 

Space Shuttle Redesigned Solid Rocket Motor (RSRM) 

NERVA Derived NTR 

To run the propulsion system database double-click on the file “Prop System DB . 
The opening screen of Figure 68 will appear. Press Continue and Figure 69 will 
appear. Pressing on any button will find all propulsion systems of the type 
represented by the button. For example, pressing “Cryogenic” will find only the 
cryogenic engines, pressing “Chemical” will find the cryogenics plus the solids, 
plus the hybrids, etc. Pressing “Propulsion Systems” will find all the records in the 
database. If the user presses a button for which there are no records of that type, a 
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dialog box will appear and if Continue or Cancel is pressed, all records will be found 
instead of the null set of zero records expected. This is a quirk of FileMaker Pro. 

Code Struc ture and Output 

The code is broken into five general classes of propulsion systems based on needing 
different reports for each kind of propulsion system: Liquids, Solids, Hybrids, 
Nuclear, and Exotic. The layouts for Liquids must be different from those for Solids 
since many parameters of one have no meaning for the other (e.g., mixture ratio, 
grain design). This structure is transparent to the user if the buttons supplied on 
every screen for navigation are used. In other words, when a liquid engine is 
selected and the Data Entry button is pressed, the user will go to the liquid data entry 
screen, not the ones available for solids, hybrids, etc. (which are different). 
Nonetheless, the actual internal structure is fairly complex and extensive because of 
the need for different report and entry formats. There are 160 layouts and 71 scripts 

used. 

The result of pressing “Propulsion Systems” in the Main Menu (Figure 69) is shown 
in Figure 70 which is also the list of all currently available propulsion systems. An 
example of using the code is to select one of the propulsion systems from the figure 
(i.e., click on the engine name) and then press one of the five buttons across the top 
of the screen. The Print button simply prints the page (and works the same on all 
other layouts where it is present), the More Data button shows two additional lines of 
information for each propulsion system (thrust, specific impulse, weight, length, 
width, etc.) and is intended as a short technical summary of the systems in the 
database. The button with the “org chart” icon returns to the Main Menu (Figure 
69). The Data Entry button goes to a set of layouts specifically designed to make data 
entry easy by gathering all the fields of data for one system in one place and 
eliminating any that are calculated from other data. 

The Reports button goes to a screen like Figure 71. This screen shows the individual 
reports (layouts) available for each propulsion system. The reports are arranged into 
two sets — each containing the same information, but with some differences in 
arrangement - with one set structured for portrait mode presentation and called 
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“Reports”, and the other structured for landscape mode presentation and called 
“Briefing Charts”. 

Typical use of the code would be to go to the Main Menu screen (Figure 69), press 
“Propulsion Systems”, choose an engine from the resulting Summary screen 
(Figure 70), press the Reports button and then use Figure 71 to look at the data (and 
print any of interest) by pressing individual reports. For example, pressing Engine 
Performance 1” brings up the layout in Figure 72 (for a STME as an example). From 
this (or any other) report the user can print the report, return to the Reports screen, 
or return to the Main Menu. 

After examining the various reports, the user might return to the Summary screen 
(Figure 70) and select another propulsion system and then look at its reports, and so 

on. 

Figures 73-82 present the output for each of the currently available systems. 

Figure 83 shows the field definitions for all fields in the file “Prop System DB”. 
Figure 84 shows the field definitions for all fields in “Prop System DB-Pictures”. Note 
that all of the fields in “Prop System DB-Pictures” except “Engine Name” and two 
picture fields are look-up fields using the data from “Prop System DB” through the 
field “Engine Name”. It is important to remember to force a relook-up in “Prop 
System DB-Pictures” if changes are made to the file “Prop System DB” since relook- 
ups are not automatic in FileMaker Pro. 
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Figure 2. Main Navigation Screen 









Figure 3. Current Cryogenic Models 
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Figure 5. Input/ Output Table for Liquid Models 






Figure 6. Parametric Data Generation Screen — Liquid Engines 
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Figure 7. Parametric Results Table - Liquid Engines 
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Figure 9. Printed Version of Weight Chart - Liquid Models 






Figure 10. Printed Version of Lengths Chart - Liquid Models 








Figure 1 1 . Printed Version of Performance Chart - Liquid Models 









Figure 12. Parametric Data Available - Liquid Engines 














Figure 13. Solid Fuel Models Available 
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Figure 14. Solid Motor Model 












Figure 15. Parametric Generation Screen - Solid Boosters 
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Figure 16. Parametric Results Table - Solid Boosters 
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Figure 17. Printed Output of Parametric Results - Solid Motors 
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Figure 18. Printed Version of Weights Chart - Solid Rocket Boosters 












Figure 19. Printed Version of Lengths Chart - Solid Rocket Boosters 













Figure 20. Printed Version of Mass Fraction Chart - Solid Rocket Boosters 









Sill 


l||pll|l|p 


^*3 


israqx 


000 * 000*8 


ooo*oos** 


000*000> 


OOO’OOS'C 


OOO’OOO* E 


000‘008‘E 


i; ! 


000*000*3 


000*008*1 

. . 


000 * 000*1 


Figure 21. Printed Version of Performance Chart - Solid Rocket Boosters 


Figure 22. Parametric Results Available - Solid Rocket Boosters 
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Figure 23. Input /Output Table for Hybrid Rocket Booster Model 












Figure 24. Parametric Data Generation Screen - Hybrid Motors 
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Figure 25. Parametric Results Table - Hybrid Rocket Boosters 
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Figure 27. Printed Version of Parametric Results Chart - Hybrid Boosters 
















Figure 28. Printed Version of Weights Chart - Hybrid Rocket Motors 













Hybrid Propellants - Large Motors 



Figure 29. Printed Version of Lengths Chart - Hybrid Rocket Motors 






Figure 30. Printed Version of Mass Fraction Chart - Hybrid Rocket Motors 








Figure 3 1 . Printed Version of Performance Chart - Hybrid Rocket Motors 
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Figure 32. Reactor Choices 
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Figure 33. Fuel Form Choices 






Figure 34. Nuclear Thermal Rocket Model 


mm 












100 


8 



(lueojed) ;srum uinnoBA 


TA3-0420Fig 


Ingredient 

Weight Percent 

Al 

19.0 

AP 

68.86 

HP* 

12.0 

Fe203** 

0.14 


* varied for mechanical property control 
** varied for burn rate control 


Figure 36. Nominal Composition of ASRM Propellant 


Exhaust Product 

Mass Fraction 

CO (g) 

0.2081 

C02 (g) 

0.02786 

CL (g) 

0.00285 

HCI (g) 

0.2093 

FeCI2 (g) 

0.0021 

H (g) 

0.00019 

H2(g) 

0.01972 

H20 (g) 

0.08455 

AI203 (S & 1) 

0.3587 

N2(g) 

0.08582 


Figure 37. Theoretical Exhaust Products at 1,000 psi 
Chamber Pressure Expanded to 14.7 psi 
ASRM Propellant 





ASRM (ANB3652) Propellant 


Meop, psia 

Initial Area Ratio, Ei 

(Favg)vac, lbf 

Bum Time, Tb, seconds 

Dcase, in 

Push Weight, lbm 

Nose Cone L/D 


Note 1: 


Note 2: 


Note 3: 


Note 4: 


1,000 

7.0 

2,590,000 

111 

146 

1,000,000 

1.30 




200 To 2000 
5 To 19 

320 K To 8.9 M 
60 To 178 
80 To 255 


Cases with L/D greater than 5.6 
are difficult to wind w/o Joints. 

MG propellant bum rates 
(Rbo) are tailorable between 
0.334 and 0.806 ips. 

Data is being extrapolated 
below range of regression. 

Data is being extrapolated 
above range of regression. 


ReguJto 


Rbo, in/sec 
(Isp)sl, sec -lbf/ lbm 
(Ispjvac, sec-lbf/lbm 
(A throat)avg. in A 2 
(R throat)avg, in 
(Favgjsl, lbf 
(Favgjvac, lbf 
L case, in 
L/D case 
L nozzle, in 
Nozzle Exit O.D., in 
Total Length, in 
W propellant, lbm 
W nozzle, lbm 
W insulation, lbm 
W case, lbm 
W igniter, lbm 
W nose cone, lbm 
W ext insul. lbm 
W fwd skirt, lbm 
W aft skirt, lbm 
W separation, lbm 
W misc, lbm 
W SRM, lbm 
W stage, lbm 
W SRB, lbm 
V ideal, ft/sec 
Mass Fraction 
(Impulse )sl. lbf- sec 
(Impuise)vac, Ibf-sec 




0.530 

246.54 

269.57 

2.243.0 
26.7 

2,368,679 

2,590,000 

1,187.9 

8.14 

167.5 

138.5 

1.545.3 
1,066,466 

12.500.2 

6.716.0 

26.124.3 

633.6 

3.742.3 
763.5 

2.965.0 
14,659.7 

1,246.8 

1.522.1 
1 . 1 12E+06 
2.490E+04 
1 . 137E+06 
5.995E+03 
9.377E-01 
2.629E+08 
2.875E+08 


RMSE 


0.002 

N/A 

N/A 

10.7 

N/A 

N/A 

N/A 


Figure 38 . Printed Output- "Report" - English Units 




Large Motors ASRM (ANB3652) Propellant 

14 January 1993 



Figure 39. Printed Output - "Briefing" - Metric Units 




Figure 40. Equations for ASRM 
Propellant Model 


Equations for Stage Components 


Ypriahletobe 
Calculated Equation 


Nose Cone Weight, lbm 


W Nose Cone - 3395 - 2098 N t/d - 0.4705(D c /2) 2 + Z533xl0' 5 {(D c /2)M/ 2 ) 2 + W ljd D c Y } 

External Insulation Weight, lbm 

- 87 + 0.7243A + 0.1071(A/2) 2 

Fwd Skirt and Attach Weight, lbm 

lir (2.095 4.0.052760c -0.00008460?) 

WfwdSkirt m e 

Aft Skirt and Attach Weight, lbm 

1I7 1 2 .89 + 0.063430* -0.000120/) 

vvAftSkin ■ * 

Separation System Weight, ibm 

Wseparation m 0.0011208W,,*, 


Misc Weight, lbm 

w misc - -1039 - 0.00204 W srm + 2.854 L c „ e A HOZI u +0.07885(D c /2) 2 


TA3-0321 


BunungRate @ 1000 psia, ips Rbo - 4.633 {D c fT bf™ Meop 03528 
PropeUant Weight, lbm W I 0.004530 


Average Nozzle Throat Area, % = -14.5 + rntW^Mtap^'T?™ + 1.039B - 5F V + 0.31317* 


Diameter of Nozzle @ Exit, in ^ _ 2 J(R t - 0.005 T b ) 2 Ei 
Average Sea Level Thrust, lbf = P' v — 3.675tlD^ 


Sea Level Specific Impulse, j sp ^ . 
Ibf-sec/lbm 


Isp v Fu 

F* 


RMSE = 0.002 
(0.334-0.806) 

RMSE - 2,809 
(I98k-3.G1M) 




Analytical 

Equation 

Analytical 

Equation 


Boss- Boss Case Length, in L c — 26.26^ 9665 D C 


RMSE = 5.3 
(443-1,640) 


Nozzle Length (All Case Boss l n = \ .096/1 5665 £° 3385 
to Nozzle Exit), in — 

Case length to Diameter Ratio, UD C = ^ 

dim 

Booster Total Length, in L io tai = L c + L n + N i/jDc 


RMSE = 3.6 
(52-373) 

Analytical 

Equation 

Analytical 

Equation 


. 1 m [ 273 —+0,5124 RMSE — 29 

Igniter Weight, lbm w,„ = 19.1 + 164.3 M Meop-' m Df X! ' -0.0718X4, (77-1,748) 

^ RMSE — 1,025 

Nozzle Weight, lbm = 400.6 4-0.02310;^, (1 + £/)/>* + 0.10Q4A, W p (1,880-46,900) 


Internal Case Insulation, lbm Wi = -18.3 + 0.2467ffJ 7199 7^ 3134 L c ° 173 0.0721144/ 


RMSE = 105 
(1,690-16,800) 


Empty Case Weight, lbm w c = -183.1 + 4.795e -4F, + 6.142e- 6L° C ni9 Meop 0169l F v D\ 


RMSE = 933 
(2,650-107k) 


Total Rocket Motor Weight, IV ^ - W p + W n + IV, + W c + W fgn 

lbm — 

Total Stage Component W stg = WfJoscCon* + W ExtlnsuUttion + ^FwdSkin + ^AfiSkirt + WstparUon 4- W Mtsc . 

Weight, lbm 

Total Booster weight, lbm W ^ - W ^ + H 3tg 


Analytical 

Equation 

Analytical Eq. 
(4,200-1 93 K) 

Analytical 

Equation 


Booster Ideal Velocity, ft/ sec 

^=/,p.in(jr;;X)32.i8 

Analytical 

Equation 

Booster Mass Fraction, dim 


Analytical 

Equation 

Total Impulse Sea Level, 
Ibf-sec 

hi =F*iTb 

Analytical Eq. 
(45M-728M) 

Total Impulse vacuum, 
lbm-sec 

U = FJb 

Analytical Eq. 
(51M-865M) 


1/14/93 


Figure 41 . Script for ASRM Propellant 

Model 


TA3-0328 


27 March 1993 05:48:54 PM Parametric Database /Object 39 script 


Page: 1 


Invalidate On 
Manual Recalc 
Select Range A1 16 
Window Scale 65% 


{Titles and dates} 

Put" Large Motors" Into A 123 

Put "ASRM (ANB3652) Propellant" Into C123 

Put "14 January 1993" Into A124 


{Initial Independent Variable Setup} 


Put 1000 Into C126 
Put 7 Into Cl 27 


Put 2590000 Into C128 
Put 111 Into C129 
Put 146 Into Cl 30 
Put 1000000 Into C131 
Put 1.3 Into C132 


{Meop, psta} 
{Initial Area Ratio, El} 


{(Favg)vac, lbf} 

{Burn Time, Tb, seconds} 
{Dcase, in} 

{Push Weight, lbm} 
{Nose Cone Length /Diameter} 


{Load Range Information} 

Put "200 To 2000" Into D126 
Put "5 To 19"IntoD127 
Put "320 K To 8.9 M" Into D128 
Put *60 To 178" Into D129 
Put "80 To 255" Into D130 


{Load Range Limit Checks} 

Put "=If (C126<200, 1,0)" Into K126 
Put "=If (C126>2000, 1.0)" Into K127 
Put "=If (C127<5, 1,0)" Into K128 
Put "*If (C127>19, 1.0)" Into K129 
Put "=If (C128<320000. 1.0)" Into K130 
Put "=If (C128>8900000, 1,0)" Into K131 
Put "=If(C129<60. 1.0)" Into K132 
Put "=If (C129>178. 1,0)" IntoK133 
Put "=If (C130<80, 1.0)" Into K134 
Put "=If (C130>255, 1.0)" Into K135 


{Load Results Formulas. RMSE and correlation limits, and percent error} 


Put "* Into 1126 


Put "=G128*G131/(C128*L126)" Into G127 
Put "N/A" Into HI 27 
Put ""Into 1127 



27 March 1993 05:48:55 PM Parametric Database /Object 39 script 


Page: 2 


Put P "=(C128*C 129/(0138 /LI 23))*L125" Into G128 

Put "N/A" Into HI 28 
Put ""Into 1128 

P^tW°U5?i72 8*((G138/L123) A 0.9902)*(C126 A (-0.9551))*(C129 A (-0.9776)) 

Put "^^G^^^15^L122^122/*Not(^3”,\flC1129>683()*^22*L122,""Note 4"". 10.7-L122-L122),- Into H 
Put ""Into 1129 

{( R throat)avg> _ , OA 

Put "=SqRt(G 129/ 3. 141593)" Into G130 
Put "N/A* Into HI 30 
Put ""Into 1130 

Puf^=(C128-11.54535*G136*G136/(L122*L122)) , L126" Into G131 

Put "N/A" Into H131 
Put"" Into 1131 

{(Favg)vac) 

Put "=C128*L126" Into G132 
Put "N/A" Into HI 32 
Put"" Into 1132 

Put"" Into 1133 

{L/D case} ^ „ . 

Put "=G133/(C130*L122)" Into G134 

Put "=If(G134>5.6,""Note 1"\""N/A"")" Into H134 
Put"* Into 1134 

Put"" Into 1135 

^t Z "=\^^R^(UG 1 30 /L 122-0. 005*C 1 29 ) A 2 )*C 1 27))*L 1 22" Into G136 
Put "N/A" Into HI 36 
Put "" Into 1136 

pS t ^G133+G135+(C132*C130)*L122" Into G137 
Put "N/A" Into HI 37 
Put"" Into 1137 

Put "" Into 1138 



27 March 1993 05:48:56 PM Parametric Database /Object 39 script 


Page: 3 


Put ""Into 1139 

S«^lT3io U 2467-((G138/LU3r0.7199)-lC129*0 3134)-((G133/L122)*(-0.1737ll 

** 4--.105-L123I)- Into Ht40 

Put "" Into 1140 
{W case} 

Put"" Into 1141 

^t l -a9 r U(164.3'(0138/(C129>L123))M.273)'(C126*(-1.076))‘(C130*(.0.5851)) 

“ - »142 

Put ""Into 1142 
{W nose cone} 

**“* ""i?2 Sl’aSr M(<?130 / S°SqR«ac°i30 / 2) A 2)+((C 1 32*C 1 30) A 2))) A 2))*L 1 23" Into G 1 43 

Put "N/A" Into HI 43 
Put*" Into 1143 

^t*^(^7^0?7243*^C130+0. 1071 *((C 1 30 / 2) A 2))*L 1 23" Into G144 
Put "N/A" Into HI 44 
Put "* Into 1144 

KtE S S(2*9 a sS : .05276'C130.0.0000846>C130‘C1301)-L123- into G145 
Put "N/A" Into HI 45 
Put "" Into 1145 

^(E k ^U & 89“o C 06343-C130.0.00012-C130-CI30)I-L123- Into 0146 
Put "N/A" Into HI 46 
Put "" Into 1146 

{W separation system} 

Put "= 0 . 001 1208*G 149" Into G147 
Put "N/A" Into HI 47 
Put"" Into 1147 

Kf. C 1039.0.00204'(OI49/L123)*2.854‘H0133*GI35)/LI22)40.07885*((CI30/2)-2))-L123-IntoG14 

Put "N/A" Into HI 48 
Put"" Into 1148 


{W SRM} 



27 March 1993 05:49:05 PM Parametric Database /Object 39 script 

Put "=Sum(G 1 38. .G 1 42)" Into G149 
Put ""Into HI 49 
Put ""Into 1149 


{W stage} 

•ImOlSoSioO 1 ' ■ 4 L123 n "N0t« 3".U[G150>193000>L123.“Note 
Put ■" Into 1150 


Into H 150 


{WSRB} 

Put "=G149+G150" Into G151 
Put "" Into H 1 5 1 
Put "" Into 1151 

Put^=L 32 . 18 +(Q 128/Ll 25)+Ln((C 13 1+(G151/L123))/(C131+{G151 /LI 23M01 38/Ll 23))1)*L 124" Into G15: 

Put "N/A" Into HI 52 
Put"" Into 1152 


{Mass Fraction} 

Put "=G138/G151" Into G153 
Put "N/A* Into HI 53 
Put"" Into 1153 


{(Impulse)sl} 

Put "=G131*C129" Into G154 
Put "=IflG154<45000000*L126," 
Put "" Into 1154 


"Note 3"".IflG154>728000000*L 126. ""Note 


4 "".""""))" Into H154 


{(Impulse)vac} . 

Put "=C128*C129*L126" Into G155 
Put "=Ifl(G 1 55<5 1 000000*L 1 26, ""Note 
Put ""Into 1155 


3"*,IflG155>865000000*L126.""Note 


4 "",""""))" Into H155 


{Load Notes} 

Put "Note 1:" Into A135 

Put "Cases with L/D greater than 5.6* Into C135 
Put "are diffi cult to wind w/o Joints." Into Cl 36 

Put "Note 2:" Into A 138 
Put "MG propellant bum rates" Into Cl 38 
Put "(Rbo) are tallorable between" Into Cl 39 
Put "0.334 and 0.806 ips." Into C140 

Put "Note 3:" Into A 142 

Put "Data is being extrapolated" Into Cl 42 

Put "below range of regression." Into Cl 43 

Put "Note 4:" Into A145 

Put "Data is being extrapolated" Into Cl 45 

Put "above range of regression." Into C146 


Automatic Recalc 
Invalidate Off 



Ingredient 

Weight Percent 

R-45M (1% A02246)* 

13.83 

IPDI* 

0.86 

HX-752 

0.30 

TPB 

0.01 

Mg 

22.0 

AP** 

62.80 

Fe203** 

0.20 


* varied for mechanical property control 
** varied for burn rate control 


Figure 42. Nominal Composition of Magnesium Clean Propellant 


Exhaust Product 

Mass Fraction 

CO (g) 

0.2860 

C02 (g) 

0.0162 

CL (g) 

0.0002 

HCI (g) 

0.1505 

FeCI2 (g) 

0.0032 

MgCI2 (g) 

0.052 

H (g) 

Insignificant 

H2(g) 

0.0289 

H20 (g) 

0.0415 

MgO (s) 

0.3412 

N2 (g) 

0.0766 

Other 

0.0005 


Figure 43. Theoretical Exhaust Products at 1 ,000 psi 
Chamber Pressure Expanded to 14.7 psi 
Magnesium Clean Propellant 

TA3-0323 
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Large Motors 

14 January 1993 


Neutralizing Mg (DL-H435) Propellant 

iitiResults^iiEI 


^maeqeuacuv x 

Meop. psla 

1,000 

Initial Area Ratio, El 

7.0 

(Favg)vac. lbf 

2.590.000 

Bum Time, Tb, seconds - 

111 

Dcase, in 

146 

Push Weight, lbm 

1,000,000 

Nose Cone L/D 

1.30 


Ramfe 


200 To 2000 

Rbo. tn/sec 

5 To 19 

(Isp)sl, sec-lbf/lbm - 

320 K To 8.9 M 

(Isp)vac, sec-lbf/lbm - 

60 To 178 

(A throat)avg. in A 2 

80 To 255 

(R throatjavg, in 


(Favgjsl, lbf 


(Favgjvac, lbf * 


pendent Terms 


L case. In 


Note 1: 


Note 2: 


Note 3: 


Note 4: 


Cases with L/D greater than 5.6 
are difficult to wind w/o Joints. 

MQ propellant bum rates 
(Rbo) are tallorable between 
0.34 and 0.81 ips. 

Data Is being extrapolated 
below range of regression. 

Data is being extrapolated 
above range of regression. 


L/D case 

- 

9.16 

L nozzle. In 

m 

169.7 

Nozzle Exit O.D., In 

m 

139.6 

Total Length, In 

m 

1.696.8 

W propellant, lbm 

m 

1,080.110 

W nozzle, lbm 

m 

12.648.0 

W Insulation, lbm 


7.128.9 

W case, lbm 


28.823.5 

W Igniter, lbm 


630.7 

W nose cone, lbm 


3.742.3 

W ext insul. lbm 


763.5 

W fwd skirt, lbm 


2.965.0 

W aft skirt, lbm 


14.659.7 

W separation, lbm 


1,265.8 

W misc, lbm 


1,920.0 

W SRM. lbm 


1.129E+06 

W stage, lbm 


2.532E+04 

W SRB. lbm 


1.155E+06 

V Ideal, ft/sec 


5.959E+03 

Mass Fraction 


9.354E-01 

(Impulse)sl. lbf-sec 

• 

2.625E+08 

(Impulse )vac. lbf-sec - 

2.875E+08 


0.534 

243.05 

266.17 

2,278.9 

26.9 

2.365.069 

2.590,000 

1,337.3 


Figure 44. Printed Output - “Report 11 - English Units 
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Figure 46. Equations for Mg Clean 
Propellant Model 


TA3-0326 


Equations for Stage Components 


Variable to be 
Calculated Fffllfitiffll 


Nose Cone Weight, lbm 

W Nost con « - 3395 - 2098 N lu - 0.4705(A/2) 2 + 2.533*10- 5 {(A /2)/(A W + W vd D c ) 2 } 2 


External Insulation Weight, lbm 

- 87 + 0.7243A + 0.1071(A/2) 2 


Fwd Skirt and Attach Weight, lbm 

(2.095 + 0.05 276DC-0.0000846D, 1 ) 

Wpwjskirt - e 

Aft Skirt and Attach Weight, lbm 


Wa f, Skirt ■ e 


(2.89 + 0.063430 e -0.00012Dc) 


Separation System Weight, lbm 


Wstparaiion m 0.001 1208 W, 


Misc Weight, lbm 

w miic - -1039-0. 00204 W jn . + 2.854A„ r *, o „,« + 0.07885(£> e /2) 2 


TA3-0321 


Large Motor Equations for Magnesium Based Propellant 


Burning Rate @ 1000 psia, ips 


RMSE = 0.002 
(0.34-0.81) 

Propellant Weight, lbm 

W p = 0.00502^ "^n 0027 ^ 006843 ^- 001470 

RMSE = 3,466 
(198k.-3.01M) 

Vacuum specific Impulse, 
Ibf-sec/lbm 

, hn 

Isp, = -JT- 

Analytical 

Equation 

Average Nozzle Throat Area, 

in 1 

A, = -15.2 + 15 lAWl^Meop-^T? 9716 + 1.027F-5F. + 0.31 34ft 

RMSE = 1 1 
(329-6,820) 

Average Nozzle Throat 


Analytical 

Equation 

Diameter of Nozzle @ Exit, in 

£>„ = 2 )(]?,- 0.005ft) 2 F, 

Analytical 

Equation 

Average Sea Level Thrust, Ibf 

F d = F,-3.67SxDl 

Analytical 

Equation 

Sea Level Specific Impulse, 
lbf-sec/lbm 

. Isp v Fti 

Ispvsi = 

Analytical 

Equation 

Boss-Boss Case Length, in 

L c = -0.3 + 28.23[ ^r]° 9794 + 8.696F- 4 M +0.009766Weop 

RMSE = 5 
(492-1,825) 

Nozzle Length (Aft Case Boss 
to Nozzle Exit), in 

L„ - -14.87+ l^fiSEj 2966 /!^ 05225 -0. 002486Meop + 0.4242E, 0.024457^ ( 45 . 374 ) 

Case length to Diameter Ratio, 
dim 

L/D c = % 

Analytical 

Equation 

Booster Total Length, in 

L total = Lc L>n +jV//^D c 

Analytical 

Equation 

Igniter Weight, lbm 

W ifn = 2 1 .0 + 0.22 1 &V/eo/7 01277 ^ I' B14 D^ 535 

RMSE =28 
(76-1,754) 

Nozzle Weight, lbm 

W n = 588.7 + 0.02444 (1 +E,)L„ +0.060484^° w°/ m E° l>n 

RMSE = 1184 
(1,944-47,600) 

Internal Case Insulation, lbm 

W, = -19.5 + 0.2395^ 7022 rJ 3056 L^ ,2 “ -0.06024,4, 

RMSE = 107 
(1,830-17,200) 

Empty Case Weight, lbm 

W c = -277.8 + 5. 822F-4F v + 6.142£-6L2® 298 Meop 07754 Fr l ' lU C*c 8575 

RMSE = 1,066 
(2,840-1 17k) 

Total Rocket Motor Weight, 
lbm 

W^ = W p + W n + W, + W C + w im 

Analytical 

Equation 

Total Stage Component 
Weight, lbm 

W„, = IK/Wot. + ttfiMtoado/tai + W FwJSktrt + + W StparUon + 

Analytical Eq. 
(4.300-193K) 

Total Booster weight, lbm 

w trb = w jrm + w,„ 

Analytical 

Equation 

Booster Ideal Velocity, ft/sec 

V M -lsp, ln(j^-)32-18 

Analytical 

Equation 

Booster Mass Fraction, dim 

Mfsrb - ir; 

Analytical 

Equation 

Total Impulse Sea Level, 
Ibf-sec 

ft = F*Tt 

Analytical Eq. 
(44M-716M) 

Total Impulse vacuum, 
Ibm-sec 

/, = FJ b 

Analytical Eq. 
(51M-854M) 

1/14/93 


Figure 47. Script for Mg Clean 
Propellant Model 
(Large Motors) 



27 March 1993 05:56:54 PM Parametric Database /Object 44 script 


Page: 1 


Invalidate On 
Manual Recalc 
Select Range A1 16 
Window Scale 65% 


{Titles and dates} 

Put " Large Motors" Into A 123 

Put "Neutralizing Mg (DL-H435) Propellant" Into Cl 23 
Put "14 January 1993" Into A1 24 


{Initial Independent Variable Setup} 


Put 1000 Into Cl 26 
Put 7 Into Cl 27 


Put 2590000 Into C128 
Put 111 Into Cl 29 
Put 146 Into Cl 30 
Put 1000000 Into C131 
Put 1.3 Into Cl 32 


{Meop, psla} 
{Initial Area Ratio, El} 


{(Favg)vac, lbf} 

{Burn Time, Tb, seconds} 
{Dcase, In} 

{Push Weight, lbm} 
{Nose Cone Length /Diameter} 


{Load Range Information} 

Put "200 To 2000" Into D126 
Put "5 To 19" Into D 127 
Put "320 K To 8.9 M" Into D128 
Put "60 To 178" Into D129 
Put "80 To 255" Into D130 

{Load Range Limit Checks} 

Put "=If (C126<200, 1,0)" Into K126 
Put "=If (C126>2000. 1,0)" Into K127 
Put"=If (C127<5. 1,0)" Into K128 
Put "=If (C127>19, 1,0)" Into K129 
Put "=If (C128<320000, 1.0)" Into K130 
Put "=If (C128>8900000, 1,0)" Into K131 
Put "=If (C129<60, 1,0)" Into K132 
Put "=If(C129>178. 1,0)" Into K133 
Put "=If (C130<80, 1.0)" Into K134 
Put "=If (C130>255, 1.0)" Into K135 

{Load Results Formulas, RMSE and correlation limits, and percent error} 

{Rbo} 

Put "=(4.957*((C130/C129) A 0.9788)*(C126 A (-0.3614)))*L122" Into G126 

Put "=If{G126<0.34*L 122, ""Note 3"".If(G126>0.81*L122,""Note 4"\0.002*L122))" Into HI 26 

Put "" Into 1126 

{(Isp)sl} 

Put "=G128*G131 /(C128*L126)" Into G127 
Put "N/A" Into HI 27 
Put "" Into 1127 

{(Isp)vac} 

Put "=(C128*C129/(G138/L123))*L125" Into G128 



27 March 1993 05:56:55 PM Parametric Database /Object 44 script 


Page: 2 


Put "N/A" Into HI 28 
Put ""Into 1128 


{(A throat )avg} 

Put "=(-15.2+157.4*((G138/L123) A 0.9899)*(C126 A (-0.9404))*(C129 A (-0.9776)) 
+(1.027E-5)*C128+0.3134*C129)*L122*L122" Into 0129 
Put "=Ifl(G129<329*L122*L 122, ""Note 3"",If(G129>6820*L122*L122,""Note 4"", 1 1*L122*L122))" Into H12 
Put ""Into 1129 


{(R throatjavg} 

Put "=SqRt(G 129/3. 14 1593)" Into G130 
Put "N/A" Into HI 30 
Put ""Into 1130 


{(Favg)sl} 

Put "=(C128-1 1.54535*G136*G136/(L122*L122))*L126" Into G131 
Put "N/A" Into H 131 
Put"" Into 1131 


{(Favg)vac) 

Put "=C128*L126" Into G132 
Put "N/A" Into HI 32 
Put "" Into 1132 


Put "=(-0. 3+28. 23*((G 138/Ll 23) /(C130*C1 30)) A 0.9794+(8.696E-4) 
•(G138/L123)/C129+0.009766*C126)*L122" Into G133 
Put "=IflG133<492*L 122, ""Note 3"",IflG133>1825*L122,""Note 4"",5*L122))" Into H133 
Put ""Into 1133 


{L/D case} 

Put "=G133/(C130*L122)" Into G134 

Put "=IflG134>5.6.""Note 1"",""N/A"")" Into H134 

Put ""Into 1134 


{L nozzle} 

Put "=(-14.87+1.8468*(C127 A 0.2966)*((G129/(L122*L122)) A 0.5225) 

-0. 002486*C1 26+0. 4242*C1 27-0. 02445*C129)*L1 22" Into G135 
Put "=IflG135<46*L 122, ""Note 3"".IflG135>374*L122.""Note 4"",3*L122))" Into H135 
Put "" Into 1135 

{Nozzle Exit Dla} 

Put "=(2*SqRt(((G130/L122-0.005*C129) A 2)*C127))*L122" Into G136 
Put "N/A" Into HI 36 
Put ""Into 1136 

{Total Length} 

Put "=G133+G135+(C132*C130)*L122* Into G137 
Put "N/A" Into HI 37 
Put"" Into 1137 

(W propellant} 

Put "=((0.005028*C128 A 0.9953)*(C129 A 1.0027)*(C127 A (-0.06843))*(C126 A (-0.01470)))*L123" Into G138 
Put "=If{G138> 198000*L123,""Note 4"",If{G138<3010000*L123.""Note 3"".3466*L123))" Into H138 
Put ""Into 1138 
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Page: 3 


Put 47600-Lm.--Not. 4”.l 184-L123))- Into H139 

Put ""Into 1139 

Put C M-19 S 5+0 tl 2395*((G138/L123) A 0.7022)*(C129'‘0.3056)*((G133/L122)''(-0.1211)) 

put 4"", 107*L123))" into H140 

Put ""Into 1140 

{W case} 

PUt "lfi^M^E*6rUG^33^L < 122f A 0.8298)*(C126 A 0.7754)*(C128 A 0. 1 1 10)*(C130 A 1 .8575))*L1 23" Into G141 
Put "=IfiG141<2840*L123.""Note 3"\IflG141>l 17000*L123.""Note 4"\1066»L123)) Into H141 
Put ""Into 1141 

™? r > 22 18*(C126 A 0 1277)*((G129/(L122*L122)) A 1.331 4)*(C 130 A (-0.6535)))*L 123 IntoG142 

Zt "=IflG ?42<76 L 123, "Note 3"" ,IflG 1 42> 1 754*L 1 23 .""Note 4««.28*L123))" Into H142 
Put "" Into 1 1 42 

(W nose cone} ^ 

Put . 2 3- trl ,o o . « 

Put "N/A" Into HI 43 
Put"" Into 1143 

St* ^87 +0 .^2 43*C 13 0+0. 1071 *((C 130/2) A 2))*L 123" Into G144 
Put "N/A" Into HI 44 
Put ""Into 1144 

Kt f ^fE S ^(2.09 a 5l0 C .05276*C130-0.0000846*C130*C130))*L123"IntoG145 

Put "N/A" Into HI 45 
Put mm Into 1145 

St ^89“0 C 06343*C130-0.00012*C130*C130))*L123" Into 0146 
Put "N/A" Into HI 46 
Put "" Into 1146 

(W separation system} 

Put "=0.001 1208*G149" Into G147 
Put "N/A" Into HI 47 
Put "" Into 1147 

Put™=f* C /o39-0.00204*(G149/L123)+2.854 , l(G133+G135)/L122)+0.07885 , ((C130/2)*2)) , L123" Into G14 

Put "N/A" Into HI 48 
Put "" Into 1148 


{W SRM} 

Put "=Sum(G138..G142)" Into G149 
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Page: 4 


Put ""Into HI 49 
Put ""Into 1149 


{W stage} 

Put "=Sum(G 143.. 0148)" Into 0150 

Put "=IHG150<4300*L123, ""Note 3"",IflG150>193000 L123. 
Put ""Into 1150 


"Note 


4"",""''"))" Into HI 50 


{WSRB} 

Put "=G149+G150" Into 0151 
Put"" Into H 151 
Put"" Into 1151 


Put'"*U12.18 , (G128/L1251*Lnl(C131+(G151/L123H/(C131+(G151/L123MG138/L123))))*L124" Into G15 

Put "N/A* Into HI 52 
Put ""Into 1152 

{Mass Fraction} 

Put "=G138/G151" Into G153 
Put "N/A" Into HI 53 
Put ""Into 1153 


{(Impulse)sl} 

Put "=G131*C129" Into G154 

Put "=If[G 154<44000000*L 1 26, ""Note 

Put ""Into 1154 


3"" , Ifl G 1 54> 7 1 6000000*L 1 26, ""Note 


4 "",""""))* Into H154 


{(Impulse)vac} 

^ "*lllG155<5?000000"M26l“Note 3 ".If( 0155 > 854000000 "L 126 .”Note 4". 
Put"" Into 1155 


""""))" Into HI 55 


{Load Notes} 

Put "Note 1:" Into A135 

Put "Cases with L/D greater than 5.6" Into Cl 35 
Put "are difficult to wind w/o Joints." Into C136 


Put "Note 2:" Into A138 
Put "MG propellant burn rates" Into Cl 38 
Put "(Rbo) are tallorable between" Into Cl 39 
Put "0.34 and 0.81 lps." Into C140 

Put "Note 3:" Into A 142 

Put "Data is being extrapolated" Into Cl 42 

Put "below range of regression." Into C143 


Put "Note 4:" Into A 145 

Put "Data Is being extrapolated" Into C145 

Put "above range of regression." Into Cl 46 


Automatic Recalc 
Invalidate Off 


Medium Motors 
18 August 1992 
Independent Terms 


Meop, psla 

Initial Area Ratio, El 

(Favgjvac, lbf 

Bum Time, Tb, seconds 

Dcase, in 

Push Weight, lbm 


Neutralizing Mg (DL-H435) Propellant 

“ 


IfiESiSi 


dent Terms 


900 

To 

2000 

7 

To 

19 

62K 

to 

328K 

30 

To 

105 

30 

To 

105 


Note 1: 


Note 2: 


Note 3: 


Note 4: 


2,000 

10 

250.000 
40 
70 

200.000 


Cases with L/D greater than 5.6 
are difficult to wind w/o Joints. 

MG propellant bum rates 
(Rbo) are tailorable between 
0.34 and 0.81 ips. 

Data is being extrapolated 
below range of regression. 

Data is being extrapolated 
above range of regression. 



Figure 48. Printed Output - "Report" - English Units 
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Figure 49. Printed Output - "Briefing" - Metric Units 



Figure 50. Script for Mg Clean 
Propellant Model 
(Medium Motors) 


Page: 1 


27 March 1993 05:58:49 PM Parametric Database /Object 240 script 

Invalidate On 
Manual Recalc 
Select Range A57 
Window Scale 65% 

{Titles and dates} 

Put " Medium Motors" Into A64 

Put "Neutralizing Mg (DL-H435) Propellant" Into C64 

Put "18 August 1992" Into A65 

{Initial Independent Variable Setup} 

Put 2000 Into C67 {Meop. psia} 

Put 10 Into C68 {Initial Area Ratio, El} 

Put 250000 Into C69 {(Favg)vac, lbf} 

Put 40 Into C70 {Burn Time, Tb, seconds} 

Put 70 Into C71 {Dcase, in} 

Put 200000 Into C72 {Push Weight, lbm} 


{Load Range Information} 

Put "900 To 2000" Into D67 
Put "7 To 19" Into D68 
Put "62K to 328K" Into D69 
Put "30 To 105" Into D70 
Put "30 To 105" Into D71 


{Load Range Limit Checks} 

Put "=If (C67<900, 1.0)" Into K67 
Put "=If (C67>2000, 1.0)" Into K68 
Put "=If (C68<7, 1 .0)" Into K69 
Put "=If (C68>19. 1.0)" Into K70 
Put "=If (C69<62000. 1.0)" Into K71 
Put "=If (C69>328000. 1,0)* Into K72 
Put "=If (C70<30, 1,0)" Into K73 
Put "=If(C70>105. 1.0)" Into K74 
Put "=If (C71<30. 1.0)" Into K75 
Put "=If (C71>105, 1,0)" Into K76 


{Load Dependent Terms and Intermediate Results} 

Put "=C71/C70" Into M76 

Put "=C67*M76" Into M78 

Put "=(C67/1000) A 0.39" Into M80 

Put "=C69*C70" Into M82 

Put "=C69/C67" Into M84 

Put "=M84/C68" Into M86 

Put "=(G79/L3)/C70" Into M88 

Put "=(G79/L3)/(C71*C71)" Into M90 

Put "=(G71/L2)*C68" Into M92 

Put "=((SqRt(G 70 )+SqRt(G 70 *C 68 ))/ 2 *G 76 )/(L 2 *L 2 )" Into M94 


Page: 2 


27 March 1993 05:58:50 PM Parametric Database /Object 240 script 


Put 

Put 


»_(G79/L3)/C70*(26.0314*C70/(C71*C71)+0. 000046398)" Into M97 
"=LN((C72+(G86/L3))/(C72+(G86-G79)/L3))" Into M100 


{Load Results Formulas. RMSE and correlation limits, and percent error} 


K° } »n 31 293*M76+0 00001733331*M78-0.37345*M80)*L2" Into G67 

SI -: l mo“<0 .306-L2 3 " mSe7>0.532-L2.--Not. 4-.0.0125W Into H67 
Put 2.995 Into 167 


{(Isp)sl} 

Put "=G72*C70/G79" Into G68 
Put "N/A" Into H68 
Put "N/A" Into 168 


Put 1 " -1243 468+3 47093"C68.0.079374"C68"C68+0.000010827"C69-0.026726"C70)"L5" Into G69 

SI ■:iRG69<26^L™ "Note 3"".IlIG69>286"L5."Note 4"".0.595"L5)I" Into H69 
Put 0.217 Into 169 


St "H8 255f+0 0000009095"M82+0.72572"M84+0.58737"M86)"L2"L2* Into 070 

St "*inG70<46.5"L2*L.2.""Note 3"",IHG70>368.2"L2"L2.""Note 4"M.57"L2"L2)I" Into H70 
Put 0.872 Into 170 


{( R throat )avg} 

Put "=SqRt(O70/3. 141593)" Into G71 
Put "N/A" Into H71 
Put "N/A" Into 171 


((Favg)sl} 

Put "=(C69-14.7*C68*G70/(L2*L2))*L6" Into G72 


Put "N/A" Into H72 
Put "N/A" Into 172 


{(Favg)vac} 

Put "=C69*L6" Into G73 
Put "N/A" Into H73 
Put "N/A" Into 173 


{L C3.sc} 

Put "=(6.918+26. 0782*M90+10 
Put "=If(G74<207*L2,""Note 3"" 
Put 0.466 Into 174 


5873*M80-0.0490 1 8*070+0.000008449*07 1 *C7 1 *C7 1 )*L2" Into G74 
,If(G74>462*L2,""Note 4"\1.519*L2))" Into H74 


{L/D case} 

Put "=G74/(C71*L2)" Into G75 

Put "=If(G75>5.6.""Note 1"".""N/A"T Into H75 

Put "N/A" Into 175 


P^°-( Z -26 0584+6 33835*(G71 /L2)+0. 16796*M92-0. 001205*067+0.460 15*C68)*L2" 

Kt 4flG7*<5 ^*L2 ""Note 3"".If(G76>89.2*L2.""Note 4"«.0.94*L2))" Into H76 
Put 2.282 Into 176 


Into G76 
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27 March 1993 05:58:51 PM Parametric Database /Object 240 script 
{Nozzle Exit Dla} 

Put "=2*071 *SqRt(C68)" Into 077 
Put "N/A" Into H77 
Put "N/A" Into 177 


{Total Length} 

Put "=G74+G76+(1.5*C71)*L2" Into G78 
Put "N/A" Into H78 
Put "N/A" Into 178 


{W propellant} 

Put "=(C69*L6)*C70/G69" Into 079 

Put "=If{G79>105000*L3,""Note 4"".If(G79<15000*L3," Note 
Put "N/A" Into 179 


3"".""N/A""))" Into H79 


P^t n "=(36 9679+0.00001 1857*M82+0. 1818*M94+1.41 166*C70+9.22776*G76/L2)*L3" Into G80 
Put "=If(G80<221*L3.""Note 3"".IflG80>1819*L3.""Note 4"*,21*L3)) Into H80 
Put 2.358 Into 180 


St^M a 70.9 } 12+0.09922*C71*C71+M97+1.41 144*C70)*L3" Into G81 

Put "=IflG81<260*L3.""Note 3"".IflG81>2085*L3,""Note 4"".13.42*L3))" Into H81 

Put 1.33 Into 181 


K!t W-143 337.0.030 13'C71*C7 1.3. 5389*07 1+0.0006026 , C69+0.00002222 42* G79/L3)’L3" Into G82 

Put "=If{G82<394*L3,*"Note 3"\IflG82>5676*L3.""Note 4"".66.95*L3))" Into H82 
Put 2.64 Into 182 


Put*"=(*i 5^6963+0.0001 4004*(Q70/(L2'L2))/(C71*C71).51 4 973*M88/C67-0.0074883*C67)'L3" G83 

Put "=IflG83<16.13*L3.""Note 3"".I«O83>106.5*L3.""Note 4 .2.9 L3)) Into H83 
Put 5.74 Into 183 


{WSRM} 

Put "=Sum(G79..G83)" Into G84 
Put "=71.7*L3" Into H84 
Put " " Into 184 


Km 96+0. 16858*07 1*071+0.00 1 425*C71*C7 1*071+3. 07233*(G74+G76)/L2)*L3" Into 085 
Put "=inG85<674*L3.""Note 3"Mf(G85>4240*L3.""Note 4"\94.8*L3))" Into H85 
Put 4.3 Into 185 


{WSRB} 

Put "=G84+G85" Into G86 
Put "=121.5*L3" Into H86 
Put " " Into 186 

{V Ideal} 

Put "=((G69/L5)*32. 18*M100)*L4" Into 087 
Put "N/A" Into H87 
Put "N/A" Into 187 
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{Mass Fraction} 

Put "=G79/G86" Into G88 
Put "N/A" Into H88 
Put "N/A" Into 188 

{(Impulse)sl} 

Put "=G72*C70" Into G89 
Put "N/A" Into H89 
Put "N/A" Into 189 

{(Impulse)vac} 

Put "=G73*C70" Into G90 
Put "N/A" Into H90 
Put "N/A" Into 190 


{Load Notes} 

Put "Note I:" IntoA76 

Put "Cases with L/D greater than 5.6" Into C76 
Put "are difficult to wind w/o Joints." Into C77 

Put "Note 2:" Into A79 
Put "MG propellant bum rates" Into C79 
Put "(Rbo) are tailorable between" Into C80 
Put "0.34 and 0.81 ips." Into C81 

Put "Note 3:" Into A83 

Put "Data is being extrapolated" Into C83 

Put "below range of regression." Into C84 

Put "Note 4:" Into A86 

Put "Data is being extrapolated" Into C86 

Put "above range of regression." Into C87 

Automatic Recalc 


Invalidate Off 



Ingredient 

Weight Percent 

PGN 

35.0 

Al 

25.0 

AN** 

40.0 


* varied for mechanical property control 
** varied for burn rate control 


Figure 51 . Nominal Composition of Non-Chlorine Clean Propellant 


Exhaust Product 

Mass Fraction 

CO (g) 

0.236 

C02 (g) 

0.0175 

A10H 

0.00001 

AI02H 

0.00001 

AI203 (1 & s) 

0.472 

OH (g) 

0.00017 

H (g) 

0.00023 

H2 (g) 

0.0274 

H20 (g) 

0.0653 

NO (g) 

0.00001 

N2 (g) 

0.1811 


Figure 52. Theoretical Exhaust Products at 1 ,000 psi 
Chamber Pressure Expanded to 14.7 psi 
Non-Chlorine Clean Propellant 





Large Motors 

14 January 1993 




Meop, psla 
Initial Area Ratio, El 
(Favg)vac, lbf 
Bum Time, Tb, seconds 
Dcase, in 
Push Weight, lbm 
Nose Cone L/D 




Note 1: 


Note 2: 


Note 3: 


Note 4: 


Non-Chlorine (PGN/AN/AL) Clean Propellant 


1,000 

7.0 

2,590.000 

111 

146 

1,000,000 

1.30 




200 To 2000 
5 To 19 

320 K To 8.9 M 
60 To 178 
80 To 255 


Cases with L/D greater than 5.6 
are difficult to wind w/o Joints. 

MG propellant bum rates 
(Rbo) are tailorable between 
0.33 and 0.818 lps. 

Data is being extrapolated 
below range of regression. 

Data is being extrapolated 
above range of regression. 




Figure 53. Printed Output - "Report" - English Units 




Large Motors Non-Chlorine (PGN/AN/AL) Clean Propellant 

4 January 1993 — — — 



Figure 54. Printed Output - "Briefing" - Metric Units 




Figure 55. Equations for Non-Chlorine 
Clean Propellant Model 


TA3-0327 


Equations for Stage Components 


Variable to be 
Calculated Ffflifltwn 


Nose Cone Weight, lbm 

^Kojc Con* 


3395 - 2098AT, / « < - 0.4705(A /2) 2 + 2.533xl0' 3 {(A /2)/ (A /2) 2 + W/dA ) 2 } 


External Insulation Weight, lbm 

- 87 + 0.7243A +0.1071(A/2) 2 

Fwd Skirt and Attach Weight, lbm 

(2.09J + 0.052760.-0.00008460/) 

W FwJSk ir, “ «' 

Aft Skirt and Attach Weight, lbm 

„( 2 . 89 + 0 . 063430 . - 0 . 0001 20 /) 

W A f, Skirt - e 

Separation System Weight, lbm 

Wi <P an^,-0.00U208W ln . 


Misc Weight, lbm 

. -1039 - 0.00204W jm + 2.854A«« * nozzu +0.07885(D c /2) 2 


TA3-0321 


Large Motors Equations For Non-Chlorine Propellant 


'CM 


Burning Rale @ 1000 psia, ips 

/ \ 0 9793 

Rbo = 5.362(ff) \(eop~° vn 

ttiviar. - u.w* 

(0.33-0.818) 

Propellant Weight, lbm 

W, = 642.4 + 0.004462 

RMSE = 3.048 
(200k-3M) 

Vacuum specific Impulse, 
Ibf-seclbm 

, F.T » 

Is P* = -5T 

Analytical 

Equation 

Average Nozzle Throat Area, 
in 1 

A, = -1 1.5 + 187.8»^ 9M9 A/«op- 0,708 C 983 ® + 1.923E - 5F, + 0.346ir» 

RMSE = 1 1 
(334-9,760) 

Average Nozzle Throat 
Radius, in 

R, = J? 

Analytical 

Equation 

Diameter of Nozzle @ Exit, in 

D„ = 2 J(R, - 0.005ri) 2 £f 

Analytical 

Equation 

Average Sea Level Thrust, lbf 

F,i =F y - 2.675 E,tlD 2 „ 

Analytical 

Equation 

Sea Level Specific Impulse, 
lbf-seolbm 

r Isp.Pd 

Isp* = — 

Analytical 

Equation 

Boss-Boss Case Length, in 

L c = -3.0 +26.79[^]° 9735 +0.0008531 M +0.00861 5A/eop 

RMSE = 5 
(457-1,688) 

Nozzle Length (Aft Case Boss 
to Nozzle Exit), in 

L„ = -16.3 + 1 ,892£? M37 ^° 52M - 0.002267J Ueop + 0.4660E, - 0.023407’ i 

RMSE = 3 
(50-380) 

Case length to Diameter Ratio, 
dim 

UD C = ± 

Analytical 

Equation 

Booster Total Length, in 

L total = L c +L>n +NudD e 

Analytical 

Equation 

Igniter Weight, lbm 

W ip , = 16.6 + 0.2810W^ 01167 ^;' 28 V 6164 

RMSE - 22 
(77-2,922) 

Nozzle Weight, lbm 

W n = 327.3+0.02671 (1 +E,)L„ + 0.1664.Z ? 6079 ff * 4469 ^ 1111 

RMSE = 567 
(2.6k-49.8k) 

Internal Case Insulation, lbm 

W, = -19.4 + 0.2425«^ 7148 7t 3103 Lj° 1566 +A ° MM9 

RMSE “ 241 
(1,700-16,800) 

Empty Case Weight, lbm 

W e = -122.9 + 5.155E - 4F V + 6A42E-6L 0 c ax Meop 0 Tnl F? {m D l c * m 

RMSE = 909 
(2,720- 11 0k) 

Total Rocket Motor Weight, 
lbm 

W Jrm = W p + W„ + W, + w c + W itn 

Analytical 

Equation 

Total Stage Component 
Weight, lbm 

W„ t = Wfio^on, + RWwyfa/l ion + W MSUrt + W'/tfSfc" + W Stpartion + 

Analytical Eq. 
(4,3 00-1 93 K) 

Total Booster weight, lbm 

W*. = w m + w„ t 

Analytical 

Equation 

Booster Ideal Velocity, ft/sec 

V^ = Isp, ln(J-X ) 3218 

Analytical 

Equation 

Booster Mass Fraction, dim 

Mfsrb = 

Analytical 

Equation 

Total Impulse Sea Level, 
lbf-sec 

l,i = F s tTb 

Analytical Eq. 
(45M-720M) 

Total Impulse vacuum, 
lbm-sec 

/ V -FyTb 

Analytical Eq. 
(52M-861M) 

1/14/93 



Figure 56. Script for Non-Chlorine Clean 

Propellant Model 
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27 March 1993 06:05:16 PM Parametric Database /Object 45 script 

Invalidate On 
Manual Recalc 
Select Range A1 16 
Window Scale 65% 


{Titles and dates} 

Put" Large Motors" Into A 123 

Put "Non-Chlorine (PGN/AN/AL) Clean Propellant" Into C123 
Put "14 January 1993" Into A124 


{Initial Independent Variable Setup} 


Put 1000 Into C126 
Put 7 Into Cl 27 


Put 2590000 Into Cl 28 
Put 111 Into Cl 29 
Put 146 Into Cl 30 
Put 1000000 Into C131 
Put 1.3 Into C132 


{Meop, psia} 
{Initial Area Ratio, El} 


{(Favg)vac, lbf} 

{Bum Time, Tb, seconds} 
{Dcase, In} 

{Push Weight, lbm} 
{Nose Cone Length /Diameter} 


{Load Range Information} 

Put "200 To 2000" Into D126 
Put "5 To 19"IntoD127 
Put "320 K To 8.9 M" Into D128 
Put "60 To 178" Into D129 
Put "80 To 255" Into D130 


{Load Range Limit Checks} 

Put "=If (C126<200, 1,0)" Into K126 
Put "=If (C126>2000. 1.0)" Into K127 
Put "=If (C127<5, 1,0)" Into K128 
Put "=If (C127>19, 1.0)" Into K129 
Put "=If (C128<320000, 1,0)" Into K130 
Put "=If (C128>8900000, 1,0)" Into K131 
Put "=If (C129<60. 1.0)" Into K132 
Put "=If (C129>178, 1,0)" Into K133 
Put "=If (C130<80, 1,0)" Into K134 
Put "=If (C130>255, 1,0)" Into K135 

{Load Results Formulas. RMSE and correlation limits, and percent error} 


Qfi9«rrri 3O/C1291*0 9793)*(C126*(-0.3713)))*L122" Into G126 
Kit " = I fIG 1 2 6< 0.33* LI 2 2 / Note 3"".If(G126>0.818*L122.*"Note 4"".0.002*L122))" Into H126 
Put ""Into 1126 


{(Isp)sl} 

Put "=G128*G131 / (C128*L126)" 


Into G127 


Put "N/A" Into HI 27 
Put "" Into 1127 


Put "=(C128*C129/(G138/L123))*L125" Into G128 
Put "N/A" Into HI 28 
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Put"" Into 1128 


KtM^l t l 1 5 V ® 87 . 8 ‘(( 0138 /L 123 l' 0 . 9949 )-(C 126 *(- 0 . 9708 )nC 129 -l- 0 . 9838 )) 

M 4"',11*L122*L122„" .n ,0 H12 

Put "" Into 1 129 


{(R throat )avg} 

Put "=SqRt(G129/3. 141593)" Into 0130 
Put "N/A" Into HI 30 
Put "" Into 1 1 30 


Put "=(C 128-1 1.54535*0 136*0 1 36/ (LI 22*L122))*L 126" Into 0131 
Put "N/A" Into H 131 
Put "" Into 1131 


{(Favg)vac} 

Put "=C128*L126" Into G132 
Put "N/A" Into HI 32 
Put ""Into 1132 


Sit "=(-3.0+26.79*((G138/L123)/(C130*C130)) A 0.9735+(8.531E-4) 
•1G138/L123)/C129+0.008615*C126)*L122" Into G133 
Put "=If[G133<457*L122.""Note 3"".If(G133>1688*L122.""Note 4"".5*L122)) Into H133 
Put ""Into 1133 


{L/D case} 

Put *=G133/(C130*L122)" Into 0134 

Put "=IflG134>5.6,""Note 1"",""N/A"")" Into H134 

Put"" Into 1134 


Put 1 "=(- 1 16.3+1.892*(C127 A 0.2937)*((G129/(L122*L122)) A 0.5206) 

-0 002267*C126+0.4660*C127-0.02340*C129)*L122" Into 0135 
Put "=If(G135<50*L122,""Note 3"",IflG135>380*L122.""Note 4"",3*L122))" Into H135 
Put ""Into 1135 


Put "=( 2 *SqRt(((G 1 30 /LI 22-0. 005*01 29) A 2)*C127))*L 122" Into 0136 
Put "N/A" Into HI 36 
Put"" Into 1136 


{Total Length} 

Put "=G133+G135+(C132*C130)*L122" Into 0137 
Put "N/A" Into HI 37 
Put "" Into 1137 


(W propellant} 

Put "=(642.4+(0.004462*(C128 A 0.9955)*(C129 A 1.0027)* 

10127*1-0 074091)*(C126 A 0.002841)))*L123" Into 0138 
Put "=If(<3138<200000*L123,""Note 3"".inG138>3000000*L123.""Note 4"".3048*L123))" Into H138 

Put "" Into 1138 
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Put "=(327.3+0.02671*SqRt(G129/(L122*L122))*(l+C127)*(G135/L122) ri3Q 

+0 1664*((G129/(L122*L122)) A 0.6079)*((G138/L123) 0.4469)*(C127 0.1111)) L123 Into G139 
Put "=If(G139<2600*L123.""Note 3"",If(G139>49800*L123,""Note 4"",567*L123)) Into H 
Put ""Into 1139 

Kt C "^19 S 4!o U 2425‘((G138/L123) A 0.7148)*(C129 A 0.3103)*((G133/L122) A (-0.1566)) 

+ffG129/(L122*L122)) A 0.06609))*L123" Into G140 
Put "=If(G140<1700*L123,""Note 3"",IflG140> 16800*L 123, ""Note 4"",241*L123))" Into H140 

Put"" Into 1 140 


(W case} 

* >Ut *^fi\^|2E-6?*((Q133/L^22)*0-8250) , (C12S A 0.7722)*(C128*0. 1 108)*(C130* 1.869))*M23" Into 0141 
Put "=IflG141<2720*L123.""Note 3"\If(G141>l 10000*L123,""Note 4"\909*L123))" Into H141 
Put ""Into 1141 


Kt I M\ t 6 r Lo.2810*(C126 A 0.1167)"((G129/(L122*L122)) A 1.287)*(C130 A (-0.6164)))*L123"IntoG142 

Put "=If(G142<77*L123,""Note 3"".inG142>2922*L123,""Note 4"",22*L123)) Into H142 
Put ""Into 1142 


{W nose cone} 

Put "=(3395-2098*C132-0.4705*((C130/2) A 2) 
+(2.533E-5)*(((C130/2)*SqRt(((C130/2)' 


2)+((C132*C130) A 2))) A 2))*L123" Into G143 


Put "N/A" Into HI 43 
Put ""Into 1143 


{W external Insulation} ' 

Put "=(87+0.7243*C130+0. 1071*((C130/2) A 2))*L123" Into G 144 
Put "N/A" Into HI 44 
Put ""Into 1144 


Pu/"=CExp(2.095+0.05276*C130-0.0000846*C130*C130))*L123" Into G145 

Put "N/A" Into HI 45 
Put ""Into 1145 


{W aft skirt & attach} _ , . _ 

Put "=(Exp(2. 89+0. 06343*0 130-0. 000 12*C130*C130))*L123 Into G146 

Put "N/A" Into HI 46 
Put ""Into 1146 


{W separation system} 

Put "=0.001 1208*G149" Into G147 
Put "N/A" Into HI 47 
Put"" Into 1147 


Put "=(-1039-0. 00204*(G149/L123)+2.854*((G133+G135)/L122)+0.07885*((C130/2) A 2))*L123 Into G14 

Put "N/A" Into HI 48 
Put"" Into 1148 

{W SRM} 

Put "=Sum(G138..G142)" Into G149 


G-2L. 
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Put ""Into HI 49 
Put "" Into 1149 


Put "=Sum(G 1 43 . .G 1 48)" Into G150 
Put "=If(G150<4300*L123,""Note 3"" 
Put ""Into 1150 


,If(G150>193000*L 123, ""Note 


4 "",""*"))" Into HI 50 


{WSRB} 

Put "=G149+G150" Into G151 
Put"" Into H151 
Put ""Into 1151 

Put^=^ 2 . 18 *( 0128 /L 125 ) , Ln({C 131 +( 0151 /L 123 ))/(C 131 +lG 151 /L 123 )-( 0138 /L 123 ))))*L 124 " Into OISI 

Put "N/A" Into HI 52 
Put "" Into 1152 

{Mass Fraction} 

Put "=G138/G151" Into G153 
Put "N/A" Into HI 53 
Put"" Into 1153 


{(Impulse)sl} 

Put "=G131*C129" Into G154 

Put "=If(G 1 54<45000000*L 1 26, ""Note 

Put ""Into 1154 


3"",If{G154>720000000*L126,""Note 


4 "" 


""""))" Into H154 


{(Impulse)vac} , _ _ 

Put "=C128*C129*L126" Into G155 
Put "=If(G 1 55<52000000*L 1 26, ""Note 
Put "" Into 1155 


3"",If(G155>861000000*L126.""Note 4"".""""))" Into H155 


{Load Notes} 

Put "Note 1:" Into A 135 

Put "Cases with L/D greater than 5.6" Into Cl 35 
Put "are difficult to wind w/o Joints." Into Cl 36 

Put "Note 2:" Into A1 38 

Put "MG propellant bum rates" Into Cl 38 
Put "(Rbo) are tailorable between" Into Cl 39 
Put "0.33 and 0.818 ips." Into C140 

Put "Note 3:" Into A 142 

Put "Data Is being extrapolated" Into Cl 42 

Put "below range of regression." Into C143 

Put "Note 4:" Into A 145 

Put "Data is being extrapolated" Into Cl 45 

Put "above range of regression." Into Cl 46 


Automatic Recalc 
Invalidate Off 


Ingredient 

Weight Percent 

Fuel Grain 

Escorez 

60.0 

HTPB 

40.0 

Oxidizer 

°2 

100.0 


Figure 57. Nominal Composition of Hybrid Propellant 


Exhaust Product 

Mass Fraction 
@ O/F = 2.8 

Mass Fraction 
@ O/F = 1.8 

CO (g) 

0.2032 

0.5632 

C0 2 (g) 

0.5236 

0.2591 

OH (g) 

0.0155 

0.0000 

H (g) 

0.0003 

0.0000 

h 2 (g) 

0.0024 

0.0224 

H 2 0 (g) 

0.2286 

0.1536 

NO (g) 

0.0004 

0.0000 

N 2 (g) 

0.0011 

0.0017 

O-j (g) 

0.0025 

0.0000 

o 2 (g) 

0.0224 

0.0000 


Figure 58. Theoretical Exhaust Products at 1,000 psi Chamber 
Pressure Expanded to 14.7 psi 
Hybrid Propellant 
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Large Motors 

23 March 1993 


dent' 


Mcop. psla 

Initial Area Ratio* Ei 

(Favg)vac, Ibf 

Burn Time* Tb, seconds 

Nose Cone L/D 

Max Ox Flux* lbm/*-ln A 2 

Avg MR, O/F 

Push Weight. Ibm 


Hybrid Propellants 




500 

500 To 1500 

8 

8 To 20 

1.267.506 

280 K To 21 M 

45 

45 To 200 

1.3 

0.5 To 3.0 

0.2 

0.2 To 1.0 

1.8 

1.8 To 2.8 

1.000,000 



i t? 

| : 

| : 


Note 1: Data is being extrapolated 
below range of regression. 

Note 2: Data is being extrapolated 
above range of regression. 


D nozzle exit, in 
(Isp)sl, sec-lbf/lbm 
(Isp)vac, sec-lbf/lbm 
(A throat )avg, ln A 2 
(R throat)avg, in 
(Favg)sl, lbf 
(Favg)vac, lbf 
L tank & case, in 
L/D case 
L nozzle, in 
D motor. In 
Total Length, In 
W oxidizer, lbm 
W fuel, lbm 
W propellant, lbm 
W nose cone, lbm 
W ext lnsul, lbm 
W fwd skirt, lbm 
W aft skirt, lbm 
W separation, lbm 
W mlsc, lbm 
W HRM, lbm 
W stage, lbm 
W HRB, lbm 
V ideal, ft/sec 
Mass Fraction 
(Impulse)sl, lbf- sec 
( Impulse )vac, lbf- sec 


132.8 

238.76 

284.48 

1.765.4 
23.7 

1,063,817 

1,267.506 

803.5 
4.91 

125.7 

163.5 
1.141.9 

128,454 

71.363 

199.818 

6.307.4 

921.5 
4,724 

23,240 

261 

1,666 

232,514 

3.712E+04 

2.696E+05 

1.568E+03 

8.594E-01 

4.787E+07 

5.704E+07 


RMSEs 


N/A 

N/A 

1.9 

N/A 

0.9 

N/A 

N/A 

71 

N/A 

53 

3 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

N/A 

l N/A 
N/A 

; n/a 



Figure 59. Printed Output - "Report" English Units 




/ 



Figure 60. Printed Output - "Briefing" - Metric Units 



Figure 61 . Equations for Hybrid Rocket 

Booster Model 


TA3— 0422 


Equations for Stage Components 


Variable to be 
Calculated FflHfltMHl 

Nose Cone Weight, lbm 

W Nol , CoHt - 3395 - 2098N, /d - 0.4705(D C Ilf + 2.533*10' 5 {(D c /2) / (D c /2) 2 + {N„dD c ) 2 } 2 


External Insulation Weight, lbm 

Wm'.uMo' - 87 + 0.7243A +0.1071(D c /2) 2 

Fwd Skirt and Attach Weight, lbm 

„(2.09J + 0.05276D c -0.000084«D c l ) 

W FwJsklrt - e y 

Aft Skirt and Attach Weight, lbm 

-(2.89 + 0.063432), - 0.0001 2Z>c) 

W AflS ktn - « 

Separation System Weight, lbm 

W SvarMio . “ 0.0011208W im 


Misc Weight, lbm 

W mlte - -1039 - 0.00204 W irat +2.854 * HOtzU +0.07S85(DJ2) 2 


TA3-0321 


Large Hybrid Motor Design Equations 



Vacuum specific Impulse, 
Ibf-sec/lbm 


Isp v = 3 14.4 - 8.24XV + 0.4932J 2 ; where X = 


Average Nozzle Throat = 1 .266 + 0.371 %Meop~ 05o:i5 F ? S ' 23 0079 19 


RMSE = 0.9 
(7.5-93.9) 


Impulse vacuum, Ibm-sec 


/ v =F v Tb 


Analytical 

Equation 


— - Analytical 

Diameter of Nozzle @ Exit, in £) n = 2 J(R, - 0.005 TtfE, Equation 

" Analytical 

Average Sea Level Thrust, Ibf = F v — 3.6757tD rt Equation 

. — — — r “ “ “ Analytical 

Sea Level Specific Impulse, j sp ^ = IIEzEjL Equation 

lbf-sec/lbm Fy 1 

| “ -=,+0.5991 _ 0 485<5 T°- 1652 RMSE = 3 

Hybrid Roctet Motor diameter, _ 59 g + 0.005607X- 1 .136e- 9X*\ \where rO mtx i b (84-636) 

— “77 Z r-0 13275+* * 8 r" 0 6560 i ZI3 k6478 RMSE =53 

External Nozzle Length, in = 190. 1 - 294.4Y- 205.3X 2 + 401.9X ; X-E f R, F y bp (45.1005) 


Total Length of Tank Plus ~ c = le.T + Z.SeOFo^^Tt' 4 ' 

Case, in - 

Hybrid Rocket Motor length, in Lhrm — L rtca + Lt+c 

Booster Total Length, in Lhrb — Lhrm + N VdPm 


RMSE =71 
(654-3255) 

Analytical Eq. 
(746-3845) 

Analytical 

Equation 


Fuel Used Weight, Ibm W/uti — 0.9966F v Tbf[Isp v (\ + 0/F)\ 

O, Used Weight, lbm Woi~W OIF 


Analytical 

Equation 

Analytical 

Equation 


Total Weight Propellant Used, W p - W ^ + W 02 


Analytical 

Equation 


lbm 


Hybrid Rocket Motor Mass 
Fraction, dim 


Total Hybrid Rocket Motor 
Weight, lbm 

Total Stage Component 
Weight, lbm 

Total Hybrid Rocket Booster 


M/hrm = -5.324 + 6.696 AT - 0.7267c - 6X 2 ; where 

X = Meop-° 0] is? 

Whrm — W p / A if hrm 

W stg = W NoJ€Con4 + WExifnJulation + W FwdSkir, + W^skin + W Stp arUon + W Mise 

fVfJRB - W HRM + W 3t g 


RMSE = 0.012 
(0.73-0.91) 


Analytical 

Equation 

Analytical Eq. 
(4,300-193K) 

Analytical 

Equation 


weight, lbm 

Booster Ideal Velocity, ft/sec 

V M -hp. ln(iSSv)3218 

Analytical 

Equation 

Total Impulse Sea Level, 
Ibf-sec 

II 

•s 

«r 

Analytical 

Equation 



Figure 62. Script for Hybrid Rocket 
Booster Model 
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Page 


Manual Recalc 
Select Range A422 
Window Scale 65% 


{Titles and dates} 

Put " Large Motors" Into A408 
Put "Hybrid Propellants" Into C408 
Put "23 March 1993" Into A409 


{Initial Independent Variable Setup} 


Put 500 Into C41 1 
Put 8 Into C412 


Put 1267506 Into C413 
Put 45 Into C414 
Put 1.3 Into C415 
Put 0.2 Into C416 
Put 1.8 Into C417 
Put 1000000 Into C418 


{Meop, psia} 
{Initial Area Ratio, El} 


{(Favg)vac, lbf} 

{Burn Time, Tb, seconds} 

{Nose Cone Length /Diameter} 
{Max Oxidizer Flux} 

{Average Oxidizer/Fuel Ratio, O/F} 
{Push Weight, lbm} 


{Load Range Information} 

Put "500 To 1500" Into D41 1 
Put "8 To 20" Into D412 
Put "280 K To 2 1 M" Into D413 
Put "45 To 200" Into D414 
Put "0.2 To 1.0" Into D416 
Put "1.8 To 2.8" Into D417 


{Load Range Limit Checks} 

Put "=If (C41 1<500, 1.0)" Into K411 
Put "=If(C41 1> 1500, 1,0)" Into K4 12 
Put "=If(C412<8, 1.0)" Into K413 
Put "=If (C412>20, 1,0)" Into K414 
Put "=If (C413<280000, 1,0)" Into K415 
Put "=If (C413>2 1000000, 1,0)" Into K416 
Put "=If (C414<45, 1,0)" Into K417 
Put "=If (C414>200, 1,0)" Into K418 
Put "=If (C416<0.2, 1,0)" Into K419 
Put "=If (C416>1.0, 1.0)" Into K420 
Put "=If (C417<1.8, 1,0)" Into K421 
Put "=If (C417>2.8, 1,0)" Into K422 


{Load Results Formulas, RMSE and correlation limits, and percent error} 
{D nozzle exit} 

Put "=(2*SqRt((((G4 15/L402)-0.005*C414) A 2)*C412))*L402" Into G411 
Put "N/A" Into H41 1 
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Put*"=LN((C413 A 0. 1414)*(C412 A 3.938)*(C417 A 3.685)*(C414 A (-0.2526)))" Into M413 
Put "-(314 4-8 242*M412+0.4932*M413*M413)*L405" Into G413 

Put "=IHG413<280.3*L405,""Note r",If(G413>317.8*L405.*"Note 2"".1.9*L405))" Into H413 
Put ""Into 1413 

{(Isp)sl> 

Put "=((G413*G416)/(C413*L406))" Into G412 
Put "N/A" Into H412 
Put "" Into 1412 


Put "=(1?2<^6+(0.3718*C41 1 A (-0.5035))*(C413 A 0.5123)*C414 A 0.007919)*L402" Into G4 1 5 
Put "=If(G415<7.5*L402,""Note l"",If(G415>93.9*L402,""Note 2"",0.9*L402))" Into H415 
Put "" Into 1415 


{(A throat)avg> 

Put "=3.141593*G415*G415" Into G414 
Put "N/A" Into H414 
Put "" Into 1414 


{(Favg)sl} 

Put "=(C413-1 1.54535*G41 1*0411 /(L402*L402))*L406" Into G416 
Put "N/A" Into H416 
Put "" Into 14 1 6 


{(Favg)vac} 

Put "=C413*L406" Into G417 
Put "N/A" Into H417 
Put "" Into 14 1 7 


Put "=(16.7+2.86*(C416 A 0.1767)*(C413 A 0.4396)*(C414 A 0.4159)*({G421/L402) A (-0.3175)) 

*(C41 1 A (-0.002468))*(C417 A (-0.3836)))*L402" Into G418 
Put "=If(G418<654*L402,""Note l"".If[G418>3255*L402.""Note 2"".71*L402)) Into H418 
Put ""Into 14 18 


{L/D case} 

Put "=G418/G421" Into G419 
Put "N/A" Into H419 
Put "* Into 14 19 


Put "=(C412 A 0. 1327)*((G415/L402) A 1.568)*(C413 A (-0.6560))*(C41 1 A 0.6478)" Into M420 
Put "=(190.1-294. 4*M420-205.3*M420*M420+407.9*M420 A 3)*L402" Into G420 
Put "=IflG420<45*L402 t ""Note l"",IftG420>1005*L402,""Note 2"",53*L402))" Into H420 
Put "" Into 1420 


Put "=(C4^13 A 0.5991)*(C416 A (-0.4856))*(C414 A 0. 1652)" Into M421 

Put "=(59.8+0.005607*M42 1-1.1 36E-9*(M42 1 *M42 1 ))‘L402" Into G42 1 

Put "=IflG421<84*L402.""Note l"".If(G421>636*L402,""Note 2"",3*L402))" Into H421 


Put "" Into 1421 
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{Total Length} 

Put "=G420+G418+C415*G421" Into G422 
Put "N/A" Into H422 
Put "" Into 1422 

{W oxidizer} 

Put "=G424*C417" Into G423 
Put "N/A" Into H423 
Put "" Into 1423 


Put "*=(0.9966*C4 1 3*C4 1 4/ ((G4 1 3/ L405)*( 1 +C4 1 7)))*L403" Into G424 
Put "N/A" Into H424 
Put "" Into 1424 

(W propellant} 

Put "=G423+G424" Into G425 
Put "N/A" Into H425 
Put "" Into 1425 


{W nose cone} 

Put "=(G421 /L402)" Into M426 

Put "=( 3395 - 2098 *C 415 - 0 . 4705 *((M 426 / 2 ) A 2 ) 
+( 2 . 533 E- 5 )*(((M 426 / 2 )*SqRt(((M 426 / 2 ) 

Put "N/A" Into H426 
Put "" Into 1426 


A 2)+((C415*M426) A 2))) A 2))*L403" Into G426 


pUtM87+0.7243*M426+0.1071*((M426/2) A 2))*L403" Into G427 

Put "N/A" Into H427 
Put "" Into 1427 

Put f ME3^2!o95^o!o5276*M426-0.0000846*M426*M426)) , L403" Into G428 
Put "N/A* Into H428 
Put "" Into 1428 

Put^(^xp(*^9^ 06343*M426-0.00012*M426*M426))*L403" Into G429 
Put "N/A" Into H429 
Put "* Into 1429 


{W separation system} 

Put "=0.001 1208*G432" Into G430 
Put "N/A" Into H430 
Put "" Into 1430 


Put™=?- 1039 - 0 . 00204 *(G 432 /L 403 )+ 2 .S 54 *(( 0418 + 0420 )/L 402 )+ 0 . 07885 *((M 426 / 2 ) A 2 )} , L 403 " Into 04: 

Put "N/A" Into H43 1 
Put"" Into 1431 

{WHRM} 

Put "=G425/G436" Into G432 
Put "" Into H432 
Put "" Into 1432 
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(W stage} 

Put "=Sum(G426. .G43 1 )" Into G433 
Put "=IflG433<4300*L403, ""Note 1" 
Put "" Into 1433 


\If(G433>193000*L403,""Note 2"".""""))" Into H433 


{WHRB} 

Put "=G432+G433" Into G434 
Put "" Into H434 
Put "" Into 1434 


Put^=^J2.18*(G413/L405)*Ln((C418+(G434/L403))/(C418+(G434/L403)-(G425/L403))))*L404" 

Put "N/A" Into H435 
Put "" Into 1435 


Pu^»(C4H *(-0.01 183))*(C41 2 A (-0. 00105 1))*(C41 6 A 0.002209)*(C417*(-0. 003599)) 

•(C414 A 0 004171)*((G438/L406) A (-0. 0007922))" Into M 43 6 
Put "=-5 324+6. 696*M436-(0.7267E-6)*M436*M436" Into G436 
Put "=Ifl(G436<0.73,""Note l"".If(G436>0.91,""Note 2"", 0.012))" Into H436 
Put "" Into 1436 


{(Impulse)sl} 

Put "=G416*C414" Into G437 
Put "N/A" Into H437 
Put "" Into 1437 


{(Impulse)vac} 

Put "=C4 1 3*C4 1 4*L406" Into G438 
Put "N/A" Into H438 
Put "" Into 1438 


{Load Notes} 

Put "Note 1:" Into A423 

Put "Data Is being extrapolated" Into C423 

Put "below range of regression." Into C424 

Put "Note 2:" Into A426 

Put "Data Is being extrapolated" Into C426 

Put "above range of regression." Into C427 

Automatic Recalc 

Invalidate Off 


Into G43 


Liquid Engines 


LOX/H2 


26 January 1993 


. Independent: Terms __ 


Major Variables 

Vacuum Thrust, klbf 
Chamber Pressure, psia 
Mixture Ratio, O/F 
Maximum Area Ratio 


512.845 

3,277.0 

6.011 

77.0 


100 to 2,000 
1,000 to 5,000 
4 to 8 
10 to 400 


Parameters 

Area Ratio of Nozzle Attachment 
Nozzle Percent Length, % 
Gimbal Angle, degrees 
C* Efficiency 

Fuel Inlet Enthalpy, kcal/mole 


5.0 

80.0 

11.0 

0.98450 

-1.270 


70 to 140 
0 to 15 
0.85 to 0.999 
-2.154 to 1.856 


Value 


Vacuum Thrust, klbf 
Vacuum Isp, sec-lbf/lbm 
SL Thrust, klbf 
SL Isp, sec-lbf/lbm 
ODE C-Star. ft/sec 
L-Star, in 

ODE Isp, sec-lbf/lbm 
Energy Release Efficiency 
Kinetic Efficiency 
Divergence Efficiency 
Boundary Layer Efficiency 
Engine Efficiency 


512.845 
452.98 
418.772 
369.89 
7.753.62 
30.40 
468.92 
0.98450 _ 
0.99993’ 
0.99283 
0.98904 
0.96666 


Throat Diameter, in 
Throat Area, ln A 2 
Chamber Length, in 
Nozzle Exit Diameter, in 
Engine Diameter, in 
Nozzle Length, in 
Engine Length, in 



We 


Turbomachinery 

Prebumers 

PB Hot Gas Manifold 

Thrust Chamber 

Nozzle 

Gimbal Bearing 
Valves and Controls 
Controller and Mount 
POGO System 
Propellant Ducts 
Pressurization System 
Other Engine Systems 


Value 


1,725. 

229. 

558. 

859. 


Total Drv Weight 


Figure63. Printed Output - "Report" - English Units - L0X/H2 













Liquid Engines 


26 January 1993 


j independent ^ Terms 


Major Variables 

Vacuum Thrust, klbf 
Chamber Pressure, psia 
Mixture Ratio, O/F 
Maximum Area Ratio 


Parameters 

Area Ratio of Nozzle Attachment 
Nozzle Percent Length, % 
Glmbal Angle, degrees 
C* Efficiency 

Fuel Inlet Enthalpy, kcal/mole 


2.020.700 

1,161.0 

2.270 

16.0 


10.0 

80.3 

8.4 

0.93930 

-5.570 


500 to 3.000 
500 to 2,000 
1.5 to 5 
10 to 400 


70 to 140 
0 to 15 
0.85 to 0.999 
-5.658 to -1.682 


Vacuum Thrust, klbf 
Vacuum Isp, sec-lbf/lbm 
SL Thrust, klbf 
SL Isp. sec-lbf/lbm 
ODE C-Star, ft/ sec 
L-Star, in 

ODE Isp. sec-lbf/lbm 
Energy Release Efficiency 
Kinetic Efficiency 
Divergence Efficiency 
Boundary Layer Efficiency 
Engine Efficiency 



337.15 

0.93930 

0.99796 

0.99186 

0.99210 

0.92240 


Dimensions 


Throat Diameter. In 
Throat Area, in *2 
Chamber Length, In 
Nozzle Exit Diameter. In 
Engine Diameter, In 
Nozzle Length, In 
Engine Length, In 


Weights. n>m § 

Turbopump and Mount 
Thrust Chamber 
Engine Mount 
Oxidizer System 
Fuel System 
Purge System 
Controls (Hydraulic) 
Controls (Electrical) 
Glmbal System Supply 
Gas Generator System 
Exhaust System 
Flight Instrumentation 
Ignition System 
Interface System 
Pressurization System 
Insulation - Permanent 
Thermal Insulation Set 

Total Dry Weight 


Value 



Figure 65. Printed Output - "Report" - English Units - LOX/RP 








3/27/93 


■ 


Fvac, Klbf 

50.000 

(25 to 100) 


Tc, °K 

2.450 

(Fixed) 


Pc, psia 

784 

(500 to 2,000) 


Epsilon, - 

200 

(100 to 700) 



Nuclear Engine Weight, Envelope and Performance Function 
(NERVA Derived Prismatic Core) 



Thrust/Weight Ratio 
5.25 


Figure 67. 


Sample Output of Nuclear Thermal Rocket Model 
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Figure 68. Propulsion System Database Opening Screen 



March 27, 1993 Propulsion System Menu 

Please click Icon for selected propulsion system 



Figure 69. Main Menu of Propulsion Types 











[m } More 



led 


TTT Data 

Print 

Summary of Propulsion Systems 

Reports 


IP 



Engine Name 

Acronym 

Engine Class 

1 

Space Transportation Main Engine 

STME 

Cryogenic Liquid 

2 

F-1 

F-1 

Hydrocarbon Liquid 

3 

F-1A 

F-1A 

Hydrocarbon Liquid 

4 

J-2 

J-2 

Cryogenic Liquid 

5 

Simplified, High Performance J-2 

J-2S 

Cryogenic Liquid 

6 

Space Shuttle Main Engine 

SSME 

Cryogenic Liquid 

7 

RD-170 

RD-170 (Russian 
Designation 11D521) 

Hydrocarbon Liquid 

8 

Integrated Modular Engine 

IME 

Cryogenic Liquid 

9 

Space Shuttle Redesigned Solid Rocket Motor 

RSRM 

Solid Fuel 

10 

Nuclear Thermal Rocket, NERVA Derivative 

NTRND 

Nuclear Thermal 


Figure 70. Propulsion Systems Currently Available 
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Engine Perfor 


Engine Name: Space Transportation Main Engine 

Class of Engine: Cryogenic Liquid 



• Propellants- 
Oxidizer 


iLiauid Oxygen 
iLiquid Hydrogen 


Mixture Ratio - Engine/Thrust Chamber 


Nominal Chamber Pressure 
Expansion Ratio 
Engine Design Life (Flights) 

■ Engine Thrust Data-^— 


Nominal 


Sea Level 

552,9801 



Vacuum 

650, 00C 


Maximum 


Minimum 


357,980 


455,000 


Thrust data In units of Ibf 


-Throttle Ratio, Percent 

Sea 

Maximum I 

Minimum I 64 ^0 


Vacuum 


■ Specific Impulse Data— ^ 

Sea Level 

@Nominal Thrust I 365 -^ I 

@Maximum Thrust I I I 

@Mlnimum Thrust I 3 37.95j I 

Specific Impulse data In units of seconds 


Figure 72. Typical R 


lance 1 

|H =5 

EBB 


_9 

P 

o 


Print 

Reports 

“H 

Q 

HZ3 

Chemical 






— I 
~~1 

3 I 6.993| 


J p- Engine Restarts — ■ 
^ I Design I ^ 

0 | Demonstrated I 1 


p- Engine Starts— 



Design 

1 

33 


~ 1 

Demonstrated 




™ Engine Reliability, sec— 

5,500| 

Design 1 

Demonstrated 1 

1 



Tvoe | 

Bel| 

Length (in) 

1 133.631 

Diameter (In) 

I 9i"67] 

Throat Area (sq. In) 

| 1 46.6l| 

Exit Area (sq. in) 

I 6,600.38221 

Expansion Ratio 

| 45?0^ 


Page Layout 





















Figure 73. 

Output for Space T ransportation Main 
Engine (STME) Propulsion System 


TA3-0424 


STME Propulsion System 




Advanced Propulsion Subsystem Concepts Database 



3/1 8/93 
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March 31, 1993 


Background Information 


Engine Name: Space Transportation Main Engine 

Class of Engine: Cryogenic Uquid 


Chemical 


— Background^ 

The STME was designed to support propulsion requirements of the National Launch System (NL^Tto i ^ 1 ) ~ videS 

motors. 

Th«. ctmf is caoable of operating in either a NLS booster or core propulsion application. In either mode, die STME starts 
I.S1 ft. opuraliou of — STME, will b. — ta* -1 «*“ «- 

with other elements while other STME's continue to operate. 

1 „ tte „« mod., ,h. STME will cominu, lo open. — r boo,.., (solid o, liquid) sepunliou until oAiul (or Mr oAiul) 
conditions arc reached. 

The STME is a pump fed liquid oxygen and liquid hydrogen engine that has been designed for high reliability and low cost. It 

start is accomplished by use of vehicle propellant tank head pressures. No helium spin start or solid start cartn g q 
The engine provides oxygen and hydrogen gases for propellant tank pressurization. 



’source" 088 STME Technical Information Document , 6 Jan 1993; ICD. ^WngD^^I^Jt J-3 18 Sept 1992; 
Source. Draft Contract End , tem specification. Phase C/D. Revision 10. Attachment J-2. 26 May 1992 


Date: Entered as of 31 March 1993 

Entered by: Dan Levack 


March 31, 1993 


Propulsion System General Data 



Engine Name 
Class of Engine 
Propulsion Type 
Acronym 
Application 
Manufacturer 
Program Status 
Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 




Engine Design Life (Flights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 















March 3i, 1993 Engine Perform. 


Engine Name: Space Transportation Main Engine 

Clase of Engine: Cryogenic Liquid 


■ Propellants • 
Oxidizer 
Fuel 


I Liquid Oxygen 


lUquid Hydrogen 


Mixture Ratio - Engine/Thrust Chamber £ 


e.oooi 


Nominal Chamber Pressure 
Expansion Ratio 
Engine Design Life (Flights) 
^Engine Thrust Data 




45.00| 


[ 


Nominal 

Maximum 

Minimum 


c 


Sea Level 

552,980| [ 


Vacuum 

650,000i 


[ 


] c 


: 


| 357|§80| I 455.000j 


Thrust data in units of Ibf 


1 


Chemical 


= □ 

~i 

I 6.993 


r Engine Restarts^™ 
Design [ 

Demonstrated [ 


r Engine Starts* - ^" 
Design [ 

Demonstrated [ 


■— Engine Reliability, sec— 

“ 5,500( 

Design 1 

Demonstrated \ 

1 



Tyne | 

Bei| 

Length (in) 

1 1 16.00) 

Diameter (in) 


Throat Area (sq. in) 

| 146.61] 

Exit Area (sq. in) 

I 6, 597.45| 

Expansion Ratio 

4iToo| 






















Method 


IGlmbal 



Mass (Ibm) 

Max Gimbal Angle (deg) 
Max Gimbal Rate (deg/s) 


■■Engine Cycle 
Type pa* 


Gas Generator 


Pressures — 

— Oxidizer Turbopump- 
Mln Pump Inlet C 

Turbine Inlet C 


— Fuel Turbopump- 
Min Pump Inlet 
Turbine Inlet 


Envelope—— 

- Length 

Nominal 
Stowed 
Extended 
Maximum Gimbal 


Pressures In psia 


- Diameter 

Nozzle Exit 
Maximum 
Maximum Gimbal 


Envelope Dimensions In Inches 


• Engine Component Masses"^™ 

Component AJocabons 


Twtooffttchinery 

Oxygen Turbopump 
Fuel Turtoopump 

Combustion Devices 
Main Injector 
Combustton Chamber 
Nozzle 

Gas Generator 

tanner- CC 
-GQ 


ControAer 

Sanson 

yahres/AcSuai ors 
Interconnects 
PneumaBc System 


MtoceAaneout (System ► 
S^jport Devices 

Gimbal System 
Hem Exchanger 


Engine Toui 










March 18, 1993 


Start-Up/Shutdown Sequences 






March 18, 1993 


Start-Up/Shut 


Engine Name: Space Transportation Main Engine 

Class of Engine: Cryogenic Liquid 



Flowrate Profile 


own Profiles 








March 18, 1993 


Start-Up/Sh 


Engine Name: Space Transportation Main Engine 

Class of Engine: Cryogenic Liquid 


Isp Profile 


^Mixture Ratio Profile- 


7.0 7 


Parameter 3 - Combustion Chamber Mixture Ratio 













March 18, 1993 


Technology Development 




March 31, 1993 


Advanced Development Plan 


Engine Name: Space Transportation Main Engine 

Class of Engine: Cryogenic Liquid 


Advanced Development Plan 


Chemical 





Figure 74. 

Output for F-1 Propulsion System 


F-1 Propulsion System 
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interface (customer X 

w gimbal interface Nozzle Extension 
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March 13, 1993 


Background Information 


Engine Name: F-1 

Class of Engine: Hydrocarbon Liquid 


Chemical 


-Background* 

The F-1 rocket engine development was initiated at Rocketdyne in January 1959 under the direction of NASA, MSFCThe F-1 
™as developed to provide the power for the booster flight phase of the Saturn V vehicle A cluster of five ^engines provided 
7 Jio'000 lbTof thrust in the first stage. Sixty-five engines were flown on 13 Saturn V missions between 1967 and 1973 
with 100 percent success. A total of 98 production engines were delivered. 

The F 1 is a single-start fixed-thrust, liquid-bipropellant engine, calibrated to operate at a sea level thrust of 1 522,000 pounds 
Zliv- 1 tapVb. of 265.4 seconds. T,e engineis.tds.ively simple des,p, using l„u,d 

oxveen and RP-1 (rocket grade of kerosene) for propellants. The engine design is suitable in a single or mulU-eng^ 
installation. Although application was for only one flight, qtndiflcation requitemeols were rnttabltshed and demonstrated 

at 20 starts for a total of 2,250 seconds. 

The engine features a two-piece thrust chamber that is tubular-walled and regeneratively cooled to the 10:1 expansion ratio 
plane fnd double-walled and cooled with turbine exhaust gas to the 16:1 expansion ratio plane; a thrust chamber mounted 
turbooumo that has two centrifugal pumps spline-connected on a single shaft driven by a two-stage, direct drive turbin , 
one D^ece^idd propeflanTducts fhat are Eed in pairs to direct the fuel and oxidizer to the thrust chamber, and a hypergplic fluid 
cartridge thft for thrust chamber ignition. Power for the turbopump is supplied by a bipropellant gas generator system 

which bums high pressure fuel and oxidizer from the turbopump to drive the turbine. Turbine exhaust gas, prior to cooling th 
thrust chamber tLle extension, is directed to a heat exchanger which conditions vehicle tank prassurante(o^en for ^oxid.zer 
tank and helium for the fuel tank). Thrust vector changes are achieved by gimbaling the entire engine. The gimbal bl 
lwatedon^he thrust chamber dome, and actuator attach points are provided by two outriggers on the thrust chamber body. The 
RP-1 fuel is used as the working fluid for the gimbal actuators, for the engine control system, and for the turbopump bearing 

lubricant. 

The engine is started using a tank-head start with pressure-ladder sequence. Initially control pressure is supplied from the 
ground 8 Start is initiated by electrically firing the gas generator and nozzle extension pyrotechnic igniters and energizing the 
engine control valve start Llenoid to open the main oxidizer valves and the gas generator valve. Propellants directed to the gas 
generator from the pump discharges (initially at tank head pressures) are combusted in the gas generator causing pump discharge 
pressures toTclei . Z subsequent start sequencing is accomplished by pressure actuated valves responding to build-up of fuel 

pump discharge pressure. 

c nei ne cutoff is initiated electrically by energizing the engine control valve stop solenoid. This removes opening pressure and 
! PP Tes r^=,o the propellant vaL. ^hen closing pressure is applied to the propellant valves, orifices ,n the 
control lines sequence the gas generator valve, oxidizer valves, and fuel valves closed, in that order. 

Engine production was terminated in 1969. 


(Comments- 


92-1547, 24 March 1992. 


Date: 1991 

Entered by: Dan Levack 



March 30, 1993 


Propulsion System General Data 


Creation Date 


Modification Date 


3/30/93 


Record Number 


Engine Name 
Class of Engine 
Propulsion Type 
Acronym 
Application 
Manufacturer 
Program Status 
Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 
-i Propellants— 

Oxidizer iLiguid Oxygen (MIL-P-255086) 


MIL-P-25576B 


Engine Design Life (Flights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 


Hydrocarbon Uguid | IChemlcal 


Thermodynamic Expansion of Hot Gas 


Saturn V Booster Engine 


Rockwell International Corporation 


1 1 Successful Apollo / Saturn Flights 


Sept 1966 


IGas Generator 


Expansion Ratio 
TVC Method 
Dimensions-^ 
Maximum Length (inches) 
Maximum Width (inches) 
Engine Mass (Ibm) 


IGimbal 


18,616.0 


Engine Thrust Data, Ibf 


Nominal 


Maximum 


Sea Level 

1 ,522,008| 


Vacuum 

1.748,200| 


Minimum 















March 13, 1993 


Engine Perfori 


Engine Name: F-1 

Class of Engine: Hydrocarbon Liquid 

mm Propellants— — 

Oxidizer lUouid Oxygen (MIL-P-255586[ 

pue| lRP-1 (MIL-P-25576B) _ 

Mixture Ratio - EnginefThrust Chamber I 2 270 


Nominal Chamber Pressure (psla) 

Expansion Ratio 

Engine Design Life (Flights) 

■ Engine Thrust Data— 

Sea Level 


Nominal 


1 . 522,008 



Maximum 


Minimum 


Thrust data in units of Ibf 


• Throttle Ratio, Percent ■ - 

Sea Level 


■ Specific Impulse Data* 


@Nominal Thrust 
@Maximum Thrust 
@Minimum Thrust 


Sea Level 


Specific Impulse data in units of seconds 


1 


Chemical 


~1 

1 I 2 . 47 o| 


a 

a 

3 


r Engine Restarts^— 
Design [ 

Demonstrated [ 


|— Engine Starts- 
Design 

Demonstrated 




Engine Reliability, sec* 
Design 

Demonstrated 


HE 

5,9241 



Type r 

Bell, Tubular WaH | 

Length (in) 

d 

158 . 00 | 

Diameter On) 

d 

139.971 

Throat Area (sq. in) 

d 

961 . 70 | 

Exit Area (sq. In) 

d 


Expansion Ratio 

d 

1 6 , 00 | 1 




















March 7, 1993 


Engine Performance 2 


Engine Name: F-1 

Class of Engine: Hydrocarbon Liquid Chemical . 



Method |Gimbal ] 

Total Mass w/TVC 1 18 ' 616 -^ 

Total Mass wo^TVC 1 _1 

Mass (Ibm) 1 — 

Max Glmbal Angle (deg) l 

Max Gimbal Rate (deg/s) L -1 








— Diameter 1 


Nominal 1 220 ^ 

Nf>77'» I 1 43 J 

Stowed L -1 

Maximum 1 1435 

CvtanHaH 1 1 

Maximum Glmbal 1 — _l 

Maximum Glmbal \ 1 


Envelope Dimensions in inches 









February 20, 1993 start-Up/Shutdown Sequences 


Engine Name: F-1 

Class of Engine: Hydrocarbon Liquid 


Chemical 


■■Startup Sequence- 



.Shutdown Sequence 









February 20, 1993 


Start-Up/Shutdown Profiles 








February 20, 1993 


Interfaces 














February 20, 1993 


Technology Development 




Percent Cost 


March 24, 1993 


Advanced Development Plan 


Engine Name: F-1 


Class of Engine: Hydrocarbon Uquld 

Chemical 


Advanced Development Plan 





TEST SUMMARY AS OF COMPLETION 
ENGINE TESTS 1,804 

_ ENGINE TIME 124,831 — - 

FULL DURATION ON 

29 NEW ENGINES 27 REBUILT ENGINES 
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Figure 75. 

Output for F-1 A Propulsion System 


F-1A Propulsion System 




Advanced Propulsion Subsystem Concepts Database 



Interface (customer \ 

w glmbal interface N — Nozzle Extension 






Advanced Propulsion Subsystem Concepts Database 



ORFICE 




March 13, 1993 


Background Information 


Engine Name: F-1A 

Class of Engine: Hydrocarbon Liquid 


Chemical 


- Background — 

The F-1A engine is an uprated version of the F-l engine originally used as the fust-stage booster propulsion system for the 
Saturn V launch vehicle. The engine produces a sea level thrust of 1,800,000 pounds vs. 1,522,00 for the F-l. Functionally, 
the engine is identical to the F-l. Refer to the F-l background information sheet for a general description of the engine 
configuration and operation. 

During the late 1960's the F-l engine development program was actively pursuing upgrades and improvements on the 
flight-certified production engine. The most significant improvement was to the Mark 10 turbopump. Pump design 
modifications included reducing the turbine diameter from 35 to 30 inches, material changes to improve producibility and 
structural improvements to permit operation at higher power levels. These changes gathered over 15,000 seconds of test 
maturity in both component and engine tests. A 1,800,000 pound sea level thrust capability was demonstrated on two F-l A 
configuration development engines using the improved turbopump (Mark 10A). 

Step throttling of the engine from 1.800K to 1,350K and a condition monitoring system (CMS) are options which can be 
provided with the engine. CMS would enable holddown/shutdown capability on the launch pad and, dependent on vehicle 
configuration and mission requirements, engine out capability. 

A NASA-MSFC funded study in 1992 concluded F-l A production could readily be restarted (at substantially less cost than a 
new center line engine) using "state-of-the-practice" manufacturing processes. Five spare F-l flight engines in bonded storage at 
the Michaud Assembly Facility could be converted to the F 1A configuration to be used as "pathfinders" for assembly and test 
stand activation. Engine test facilities capable of testing the F-1A engine exist at USAF Phillips Lab in California; NASAs 
Marshall Space Flight Center in Huntsville, Alabama; and at Stennis Space Center in Mississippi. 



"■References _ 

Source: F-1/F-1A Engine Data Package (BC91-74), Unpublished Rocketdyne Data 


Date: 1991 

Entered by: Dan Levack 




March 30, 1993 


Propulsion System General Data 


Creation Date 

Modification Date 

1 lo /OA/flO 1 

Record Number 

1 "51 

|8/31/92 

| |3/30/93 J 

1 


Engine Name 
Class of Engine 
Propulsion Type 
Acronym 
Application 
Manufacturer 
Program Status 
Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio — Engine/ Thrust Chamber 
f-Propellantsi 
Oxidizer 
Fuel 


iLiquid Oxygen (MIL-P-255086)' 
lRP-1 (MIL-P-25576B) 


Engine Design Life (Flights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 



E 


[No 

iGas Generator 


i,i6ii 


Expansion Ratio 
TVC Method 
— Dimenslonsi^ 


Maximum Length (Inches) 
Maximum Width (Inches) 
Engine Mass (Ibm) 


(-Engine Thrust Data, Ibf- 

Nomlnal 
Maximum 


le.ooj 


iGimbal 


220.401 


143.50| 


19.87S.40j 


Sea Level Vacuum 

I 1.800.00l| | 2,020, 700| 


I 1 ,35Q|ooT1 1 1,570/70^ 


Minimum 










March i3, 1993 Engine Perform 

Engine Name: F-1A 

Class of Engine: Hydrocarbon Uquid 

p Propellants 

0x|d|zer mould Oxygen (MIL-P-255086) _ 

Fue| lRP-1 (MIL-P-25576B) 

Mixture Ratio - Engine/Thrust Chamber I 2 . 27 ^ 


Nominal Chamber Pressure (psia) 

Expansion Ratio 

Engine Design Life (Flights) 

• Engine Thrust Data— 

Sea Level 


Nominal 


1,800,0011 



Maximum 


Minimum 


1,350,0011 


Thrust data In units of Ibf 


-Throttle Ratio, Percent. 

Sea Lfflal 

Maximum I iQQ.oo 

Minimum I lEOS 


• Specific Impulse Data* 


@Nominal Thrust 
@Maxlmum Thrust 
@Minimum Thrust 


Sea Level 


Specific Impulse data In units of seconds 


nee 1 




















March 7, 1993 


Engine Performance 2 


Engine Name: F-1A 

Class of Engine: Hydrocarbon Liquid 


(- Engine Mass (Ibm)- 

Total Mass w/TVC 
Total Mass wo/TVC 


19,875.41 


Chemical 


.TVC- 
Method [Gimbal 


Mass (Ibm) 

Max Gimbal Angle (deg) 
Max Gimbal Rate (deg/s) 





|— Length 

Nominal I 220. 4| 

Stowed I -I 

Extended \ i 

Maximum Gimbal I I 


Envelope Dimensions in inches 



, — Diameter- 

Nozzle Exit 
Maximum 
Maximum Gimbal 


1 40. dl 
143.5) 







February 20, 1993 start-Up/Shutdown Sequences 


Engine Name: F-1A 


Class of Engine: Hydrocarbon Liquid 


Chemical 


■■Startup Sequence 




— Shutdown Sequence 







February 20, 1993 St3rt"Up/Shll 


Engine Name: F-1A 

Class of Engine: Hydrocarbon Liquid 


Thrust Profile' 


Start 



Actuation Signal (sec) 


Flowrate Profile 




QhiitHnwn 







February 20, 1993 


Start-Up/Shutdown Profiles 




March 27, 1993 


Interfaces 








February 20, 1993 


Technology Development 




February 20, 1993 


Advanced Development Plan 





Figure 76. 

Output for J-2 Propulsion System 


J-2 Propulsion System 
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March 7, 1993 


Background Information 


Engine Name: J-2 

Class of Engine: Cryogenic Liquid 


Chemical 


f— Backgrou nd 

The J-2 engine was developed to provide the power for the SIVB stage of the Saturn IB vehicle and for the SII and SIVB stages 
of the Saturn V vehicle. 

The J-2 rocket engine is a high-performance, multiple-restart engine that uses liquid oxygen for oxidizer and liquid hydrogen for 
fuel. Each propellant is pumped into the thrust chamber by separate gas-turbine-driven, direct-drive turbopumps The'wo 
turbopumps are powered in series by a single gas generator that uses the same propellants as the thrast chamber. The thrast 
chamber is tubular-walled and is regeneratively cooled by circulating fuel through the tubes before the fuel is injected Unto the 
combustion area. The engine has a refillable start tank from which pressurized gaseous hydrogen is routed I to .the '^ b «P^P 
turbines for starting the engine. This feature, combined with the augmented spark ignition system, makes the J 2 a multi- 

engine. 

The J-2 engine envelope is 80.75 inches in diameter and 133 inches long and the engine weighs approximately 3,492 pounds 
^ Sector control is achieved by gimba.ing the entire engine. The gimbal is installed at the center of the thrus chamber 
injector dome, and gimbal actuator attach points are located on the thrust chamber body. The rocket engine comprises the 
propellant feed system, gas generating system, start system, ignition n system, control system, purge system, and the flig 
instrumentation system. 


-Comments— 

No Comments. 


~ CCS Technical Data J-2 Rocket Engine, Change No. 12 (R-3825-1). Technical Data J-2 Rocket Engine 


(R-3825-1 A) 

Date: 18 October 1972, 4 December 1973 

Entered by: Dan Levack 
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Creation Date 



Modification D 


3/30/93 


Engine Name 
Class of Engine 
Propulsion Type 
Acronym 
Application 
Manufacturer 
Program Status 
Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 
Propellants 

Oxidizer iLlguid Oxygen — 




iLiguid Hydrogen 


Engine Design Life (Flights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 


Expansion Ratio 
TVC Method 
■ Dimensions— 
Maximum Length (inches) 
Maximum Width (Inches) 
Engine Mass (Ibm) 

- Engine Thrust Data, Ibf 

Nominal 
Maximum 


Minimum 


on System General Data 












March i3, 1993 Engine Perform 


Engine Name: J-2 

Class of Engine: Cryogenic Liquid 



1 


Chemical 



3 

1 

3 


r Engine Restarts^™ 
Design £ 

Demonstrated [ 


Engine Starts* 
I Design 
I Demonstrated 


Engine Reliability, sec— 

3,75^ 

Design 1 

Demonstrated 1 

J 



Type 1 

Bell, Tubular Wal| | 

Length (in) 

1= 


Diameter (in) 

C= 

77.00I 

Throat Area (sq. in) 

cz 

" 1 69.70( 

Exit Area (sq. in) 

c= 

4,609.0521 

Expansion Ratio 

1= 

” 27.16| 






















March 7, 1993 


Engine Performance 2 




Pressures in psia 


Envelope-^— 

- Length 

Nominal 
Stowed 
Extended 
Maximum Glmbal 


- Diameter 

Nozzle Exit 
Maximum 
Maximum Gimbal 


Envelope Dimensions In inches 



TaWOfy 


I.4M 















March 7, 1993 


Start-Up/Shutdown Profiles 


Engine Name: J-2 

Class of Engine: Cryogenic Liquid 


Chemical 


Thrust Profile 






March 7, 1993 


Start 


Engine Name: J-2 

Class of Engine: Cryogenic Liquid 


v-lsp Profile 
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Interfaces 








March 13| 1993 


Technology Development 




March 24, 1993 


Advanced Development Plan 













Figure 77. 


Output for Simplified, High 
Performance J-2 (J-2S) Propulsion 

System 
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Background Information 


Engine Name: 

Simplified, High Performance J-2 


Class of Engine: 

Cryogenic Liquid 

Chemical 


-Background—^ 

The J-2S rocket engine development program was initiated at Rocketdyne in 1965 under the direction of the National 
Aeronautteand Space Admiration, Eshal. Space Flight Center. The J-2S is a simplified, higher thrust and performance 
of the highly reliable J-2 engine. It uses liquid oxygen and liquid hydrogen for propellants. 


version < 


The J-2S is designed for use in a single or multi-engine installation. The engine is nominally calibrated to operate at a vacuum 
thrust of 265,000 pounds and 5.5:1 mixture ratio, providing a specific impulse of 436 seconds. 

Engine mixture ratio can be controlled (inflight) from 4.5:1 to 6.0:1. Control is accomplished by e 

from the discharge side of the oxidizer turbopump to the inlet side through an electroservo actuated variable position val e.( . ., 

the propellant utilization valve). 

The thrust chamber is a tubular wall, regeneratively cooled design having a bell shaped nozzle with an expansion area ratio of 
40:1. A gimbal bearing, attached to the thrust chamber assembly, provides a thrust vector control capability of 7.5 deg 

The starting power for the turbopumps is provided by a solid propellant turbine starter (SPTS). Up to three SPTS units may be 
mounted on the engine to provide a multiple space re-start capability. 

The engine has a pneumatic control system for valve actuation. The pneumatic supply (gaseous helium) is provided from an 
engine mounted tank. An electrical control system, which employs solid state logic elements, sequences the engine s a an 
shutdown operations. The electrical power is stage supplied. 

A heat exchanger mounted in the turbine exhaust duct can provide either heated helium or heated oxygen for oxidizer tank 
pressurization. Heated hydrogen, tapped-off from the thrust chamber fuel injection manifold, is available for fuel tank 
pressurization. 

A 6-1 throttling capability has been demonstrated by regulating the tap-off turbine drive gases. Additional engine versatility can 
be achieved by operating in a low thrust, tank pressure-fed mode. This mode of operation may be used for on-orbit propulsive 
maneuvers, or pre-mainstage propellant settling. 

The J-2S design life is 30 starts and 3,750 seconds duration. Engine testing has demonstrated operation of the engine for a 
greater total duration and a greater number of engine starts. 


rmm Comments-* 

No Comments. 


r * References 
Source: 


J-2S Brochure (322-4977), The J-2 Rocket Engine (BC71-56), Unpublished Rocketdyne data 


Date: ?,1971 

Entered by: J. A. McClanahan, Dan Levack 
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Propulsi 


Creation Date Modification C 

15/18/92 I 13/30/93 

Engine Name 
Class of Engine 
Propulsion Typ« 

Acronym 
Application 
Manufacturer 
Program Status 
Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio — Engine/ Thrust Chamber 

■> PropellantS"^^ ^^"^^™^^""^^ 

Oxidizer iLIquid Oxyge n 
p ue | lUguid Hydrogen 

Engine Design Life (Flights) 

Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 

Expansion Ratio 
TVC Method 

■ Dimensions-^ ^ 
Maximum Length (inches) 

Maximum Width (Inches) 

Engine Mass (Ibm) 


• Engine Thrust Data, Ibf* 

Nominal 

Maximum 


Minimum 











March 13, 1993 


Engine 


Engine Name: Simplified, High Performance J-2 

Class of Engine: Cryogenic Uquid 


fm Propellants— 

oxidizer lUguid Oxygen I 

p ue j lUguid Hydrogen 

Mixture Ratio - Engine/Thrust Chamber I 5~500 


Nominal Chamber Pressure (psia) 

Expansion Ratio 

Engine Design Life (Flights) 

— Engine Thrust Data^— 

Sea Level 

Nominal | 1 96,9031 [ 

Maximum I I [ 

Minimum I I [ 

Thrust data in units of Ibf 


[ 


1 ,20C 


40.0C 


3C 


Vacuum 

265,0001 

1 

1 


P Throttle Ratio, Percenti— 

Sea Level Vacuum 

Maximum I I I I 

Minimum I I I \ 


p- Specific Impulse Data 



Sea Level 

Vacuum 

@Nominal Thrust 

| 321.79| \~ 

433.06 



@Maximum Thrust 

i i r 




@Minimum Thrust 

1 _J c 



Specific Impulse data In units of seconds 
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Engine Performance 2 


Engine Name: 


Simplified, High Performance J-2 


Class of Engine: Cryogenic Liquid 


Engine Mass (ibm) 


Total Mass w/TVC 
Total Mass wo/TVC 



Chemical 


Method [Gimbal 
Mass (Ibm) 

Max Gimbal Angle (deg) 
Max Gimbal Rate (deg/s) 


Engine Cycle- 


ITap-Off Turbine Drive 


Pressures 

— Oxidizer Turbopump- 
Min Pump Inlet I 


Turbine Inlet 


- Fuel Turbopump- 
Mln Pump Inlet 


Turbine Inlet 


Pressures in psla 


Envelope-^^^— 

- Length 

Nominal 
Stowed 
Extended 
Maximum Gimbal 


Diameter 

Nozzle Exit 
Maximum 
Maximum Gimbal 


Envelope Dimensions In Inches 


Engine Component Masses 
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Start-Up/Shutdown Sequences 



March 7, 1993 


Start-Up/Shutdown Profiles 







March 7, 1993 


Start-Up/! 


Engine Name: Simplified, High Performance J-i 

Class of Engine: Cryogenic Liquid 


Isp Profile 


Mixture Ratio Profile 







March 7, 1993 


Interfaces 






March 7, 1993 


Technology Development 


Engine Name: 

Simplified, High Performance J-2 


Class of Engine: 

Cryogenic Liquid 

Chemical 





March 7, 1993 


Advanced Development Plan 




Figure 78. 

Output for Space Shuttle Main 
Engine (SSME) Propulsion System 


TA3-0315 



SSME Propulsion System 
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March 30 , 1993 Propulsit 


Creation Date 

Modification Da 

|4/20/92 

“1 J3/29/93 


Engine Name 
Class of Engine 
Propulsion Type 
Acronym 
Application 
Manufacturer 
Program Status 
Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 
mm Propellants — 

Oxidizer [Liquid Oxygen ~ 

F ue | lUguld Hydrogen 

Engine Design Life (Flights) 

Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 

Expansion Ratio 
TVC Method 

■■ Dlmensions^^^^^^^^™^^^^™ 

I Maximum Length (Inches) 

I Maximum Width (Inches) 

I Engine Mass (Ibm) 


Engine Thrust Data, Ibf 

Nominal 

Maximum 

Minimum 


System General Data 










P Propellants* 
Oxidizer 
Fuel 


I Liquid Oxygen 
I Liquid Hydrogen 


Mixture Ratio - Engine/Thrust Chamber I 6 01 H H 


6.034] 


Nominal Chamber Pressure (psla) 

Expansion Ratio 

Engine Design Life (Flights) 


Thrust data in units of Ibf 


3,028] 


77.50] 


a 


j Sflfl Lffitai 

Yasuum 

Nominal 

1 375,004] f 

469, 000] 

Maximum 

1 418,304| E 

512,300] 

Minimum 

1 209,204] f 

303, 200| 


p- Engine Restarts* 
Design 

Demonstrated 


[ 


Engine Starts- 
Design 

Demonstrated 


[ 


r Engine Reliability, sec* 
Design 

Demonstrated 


H 


27,000] 


27,000| 
37, 000| 























*] I 



■TVC 

Method |Gimbal 
Mass (lbm) 

Max Glmbal Angle (deg) 
Max Glmbal Rate (deg/s) 


— Engine Cycle 
Type [Staged Combustion 

— Pressures 
—Oxidizer Turbopump — 
Min Pump Inlet I 

Turbine Inlet I 


4,924.01 Turn 


Pressures In psla 


-Fuel Turbopump - 
Min Pump Inlet 
Turbine Inlet 


Envelope— 

- Length 

Nominal 
Stowed 
Extended 
Maximum Glmbal 


- Diameter 

Nozzle Exit 
Maximum 
Maximum Glmbal 


Envelope Dimensions in inches 


Engine Component Masses 


Turbomachinsfy 

1.79! 

Pre burners 

331 

PB Hot Oee Manifold 

561 

Thrust Chamber 

SKI 

NossJe 

1.2K< 

Otmbal Bearing 

10! 

Values and Controls 

79: 

Controller and Mount 

S! 

POOO System 

9' 

Propellant Ducts 

sot 

ProssurUaOon Svstem 

61 

Other Engine Systems 

39! 


Total Dry Weight 


6.971 
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Start-Up/Shutdown Profiles 










February 22, 1993 


Start-Up/Shutdown Profiles 








Engine Inlet Temperature, * 


February 22, 1993 


Interfaces 








February 22, 1993 


Technology Development 





March 27, 1993 


Advanced Development Plan 


























Figure 79. 

Output for RD-170 Propulsion 
System 


TA3-0316 



RD-170 Propulsion System 
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Background Information 


Engine Name: RD-170 

Class of Engine: Hydrocarbon Liquid Chemical 

mm Background— ^ 

The RD-170 is the most powerful rocket engine currently in production anywhere in the world, and it is used as the strap-on 
booster on the Energyia heavy-lift launcher and (in the RD-171 variant) on the first stage of the Zenit launcher. It is a 
4-combustion chamber engine driven by a single turbopump assembly. 

Engine development was started in 1976 and the first flight of the RD-171 occurred during the first launch of a Zenit booster in 
1985. The first flight of the RD-170 occurred in May 1985 as the booster engine on Energiya. 

The West is aware of two successful unmanned Energiya launches, and one flight failure of a Zenit launcher is known to have 
occurred in the fall of 1990, which is believed to be related to a failure of the RD-171 engine. 

Reference Sources: 

1. "RD-170— Super Powered Liquid Propellant Rocket Engine of New Generation", by F. Chelkis, obtained September 1990. 

2. “The RD-170 Liquid Rocket Engine", NPO Energomash publication, undated. 

3. Letter, F. Chelkis to W. Ezell, August 28, 1991. 

4. Technology Detail Special Report 2, "USSR Rocket Engines, second edition", January 1992, by Technology Detail, 99 
Kingsway North, Clifton, York Y03 6JH, United Kingdom. 


Comments 



| Source: 

See “Engine Background" 


Date: 



Entered by: 

Jim Glass 1 

- 


March 30, 1993 


Propulsion System General Data 


Creation Date 


12/11/92 


Modification Date 


3/29/93 


Record Number 


Engine Name 

Class of Engine 

Propulsion Type 

Acronym 

Application 

Manufacturer 

Program Status 

Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 
Propel lants — 

Oxidizer (Liquid Oxygen 


Kerosene 


Engine Design Life (Flights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 


RD-170 


Hydrocarbon Liquid Chemical 


Thermodynamic Expansion of Hot Gas 


RD-170 (Russian Designation 11D521 


Booster Engine for Energiya 


NPR Energomash 


Two successful flights, one flight failure 


Yes (but not yet flown manned 


May 1987 


IStaged Combustion 


Expansion Ratio 
TVC Method 

Dimensions——— 
Maximum Length (inches) 
Maximum Width (Inches) 
Engine Mass (Ibm) 


IGimbal 


23,507.0 


Engine Thrust Data, Ibf 


Nominal 


Sea Level 


1,630,545 


Vacuum 

1,776,9261 


Maximum 


Minimum 


742,082 


888,463 


















Engine 


March 13, 1993 


Engine Name: RD-170 

Class of Engine: Hydrocarbon Liquid 


Oxidizer |Uquid Oxygen I 

Fuel iKerosene 

Mixture Ratio - Engine/Thrust Chamber I 2l63C 


Nominal Chamber Pressure (psia) 
Expansion Ratio 


Engine Design Life (Flights) 

ciiyinv iiiiuDi 

1 uata — 


Nominal 


1.630,545| 

Maximum 

cz 

1 ,71 9,39l| 

Minimum 

d 

" 742,0821 


Thrust data In units of Ibf 


3,55< 


Vacuum 

1 ,776,926) 

1,565,7721 

888,463| 


P Throttle Ratio, Percent— 

Sea Level YaCUUm 

Maximum I I I lQ5.oq 

Minimum I I I 49.ofl 


■■Specific Impulse Data 

Sea Level Vacuum 

@Nomlnal Thrust I 309.24] I 337.0^ 


@Maximum Thrust I I I I 

@Minimum Thrust I I I I 


Specific Impulse data In units of seconds 


Engine Restarts 
Design 

Demonstrated 


— Engine Starts— ———^— 
Design 1 10 l 

Demonstrated I ..Jjl 


—Engine Reliability, sec 

Design 1 IH13 

Demonstrated I 2,567| 


—■Nozzle Data^^— — 
Type | Bell with helical slotted lineij 


Length (In) I 70.00| 

Diameter (In) I 112.60) 

Throat Area (sq. In) I 270.60| 

Exit Area (sq. In) | 9,958.oe| 

Expansion Ratio I 36.80| 










February 20, 1993 Engine Performance 2 


Engine Name: RD-170 

Class of Engine: Hydrocarbon Liquid 


Engine Mass (Ibm) 


Total Mass w/TVC 
Total Mass wo/TVC 



Chemical 


Method [Gimbal 
Mass (Ibm) 

Max Gimbal Angle (deg) 
Max Gimbal Rate (deg/s) 


■ Engine Cycle 
fype Staged Combustion 

Pressu res 

— Oxidizer Turbopump — 
Min Pump Inlet I 

Turbine Inlet I 


— Fuel Turbopump- 
Mln Pump Inlet 


Turbine Inlet 


Pressures in psia 


Envelope 

- Length 

Nominal 
Stowed 
Extended 
Maximum Gimbal 


Diameter 

Nozzle Exit 
Maximum 
Maximum Gimbal 


Envelope Dimensions in inches 


Engine Component Masses 
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February 20, 1993 


Start-Up/Shutdown Profiles 






February 20, 1993 


Start-Up/Shutdown Profiles 
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Engine Name: RD-170 

Class of Engine: Hydrocarbon Liquid 


I— Interfaces 



Chemical 










February 20, 1993 


Technology Development 





February 20, 1993 Advanced Development Plan 


Engine Name: 

RD-170 


Class of Engine: 

Hydrocarbon Liquid 

Chemical 


Advanced Development Plan 



Figure 80. 

Output for Advanced LOX/H2 Engine 
(IME) Propulsion System 


TA3-0317 


IME Propulsion System 



Length (in) 87.70 

Weight (Ibm) i.048 




Advanced Propulsion Subsystem Concepts Database 



3/18/93 





Advanced Propulsion Subsystem Concepts Database 



3/13/93 






March 7, 1993 


Background Information 



■ Background— 

An Integrated Modular Engine system design was developed which meets Air Force National Launch System Upper Stage 
design requirements. The resulting Integrated Modular Engine (IME) is a 30,000 lb thrust L02/LH2 propulsion system powered 
by a hybrid expander cycle using three bell thrust chambers and two turbopump sets. The modular design is adaptable to a wide 
range of applications via adding additional thrust chamber and turbopump modules. The propulsion system attnbutes include 
enhanced performance, operability, and reliability. Specific impulse performance is 480 seconds vacuum. Propulsion system 
launch operability is enhanced as the system requires loading only two fluids on the pad: L02 and LH2. Reliability 
improvements include a simple design with no pneumatics, hydraulics or helium purges and a backup turbopump module. In 
addition, gaseous hydrogen and oxygen for tank pressurization could also be used to supply small GH2 and G02 RCS thrusters, 
eliminating the need for a storable propellant (hydrazine) RCS system on the stage. 

Quality Function Deployment methodology was used to refine propulsion requirements, evolve design strategies and develop an 
exceptionally capable propulsion system. The IME study identified technology programs, described risks and minimization via 
backup positions and presented a cost effective development program. Engine average unit cost is estimated to be about S2.6M 
and a development program cost is estimated to be about $45M. 



pm References 

Source: RI/RD92-134 (Operational Integrated Modular Engine Study) 


Date: 3-4-93 

Entered by: T. J. Harmon 



March 30, 1993 
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Creation Date 


\msssm 


Modification Date 


3/29/93 


Record Number 


Engine Name 
Class of Engine 
Propulsion Type 
Acronym 
Application 
Manufacturer 
Program Status 
Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 
Propellants— 

Oxidizer iLiquid Oxygen 

p,,»l ILiquid Hydrogen 


(Integrated Modul ar Engine 


genic Liquid 


IChemicaf 


I Thermodynamic Expansion of Hot Gas 


I Air Force Upper Stage 

iConceptual Engine (Rocketdyne Study 

(Study: RI/RD90-134 


|1 May 1992 















March 13, 1993 


Engine 


Engine Name: Integrated Modular Engine 

Class of Engine: Cryogenic Liquid 


— Propellants^ 

Oxidizer |Uquld Oxygen ~ 

Puel [Liquid Hydrogen 

Mixture Ratio - Engine/Thrust Chamber I 6.0001 


Nominal Chamber Pressure (psia) 

Expansion Ratio 

Engine Design Life (Flights) 

■■Engine Thrust Data^^MM 

Sea Level 

Nominal | 15,393| [ 

Maximum I I [ 

Minimum I 1 [ 

Thrust data In units of Ibf 


1.7461 

700.00j 

=3 


Vacuum 

30,000| 


■■Throttle Ratio, Percent-— 

Sea Level Vacuum 

Maximum I I I I 

Minimum I I I I 


— Specific Impulse Data 

@Nominal Thrust 
@Maxlmum Thrust 
@Minlmum Thrust 


Sea Level 

246.281 


Vacuum 

480.001 


Specific Impulse data In units of seconds 


1 









March 7, 1993 


Engine Performance 2 



— Engine Mass (Ibm)- 

Total Mass w/TVC 
Total Mass wo/TVC 


1 ,048.0| 


p-TVC- 


Method 


Differential Throttling 


Mass (Ibm) 

Max Glmbal Angle (deg) 
Max Glmbal Rate (deg/s) 


— Engine Cycle 
Type 


Hybrid: Fuel Side Expander, Oxid Side Prebumer 


-—Pressures- 


— Oxidizer Turbopump 


Fuel Turbopump — 

Min Pump Inlet 1 

19.81 


Min Pump Inlet [_ 

17.2| 

Turbine Inlet 1 

4,843.01 


Turbine Inlet CZ 

2,847. o| 


Pressures in psia 


~3~0| 


~3~0l 


Envelope— 

Length 

Nominal 
Stowed 
Extended 
Maximum Glmbal 


87.7| 


87.7) 


~87V7| 


~877l 


i— D iameter - 


Nozzle Exit 
Maximum 
Maximum Glmbal 


Envelope Dimensions in inches 


pa Engine Component Masses— 

Component Mass. Ibm 

Thrust Chambers (3) 
Turbomachinery - High Pressure (4) 
Turbomachinery - Low Pressure (4) 
Propellant Valves, Ducts, Flanges 
External LH2 Feed Line 
Thrust Mount Cap 


136.0| 


1 36.0j 


136.01 


502 

Preburner (2) 

29 

102 

GOX Heat Exchanger (2) 

5 

28 

Controller 

24 

211 

Harness and Sensors 

13 

20 

Ignition System 

14 

3 

Misc Components and Contingency 

97 
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Start-Up/Shutdown Profiles 
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Start-Up/Shutdown Profiles 




March 7, 1993 


Interfaces 







March 13, 1993 


Technology Development 


Engine Name: 
Class of Engine: 


Integrated Modular Engine 

Cryogenic Liquid Chemical 





March 7, 1993 


Advanced Development Plan 


Engine Name: 

Integrated Modular Engine 


Class of Engine: 

Cryogenic Liquid 

Chemica! 


p— Advanced Development Plan 




Figure 81 . 

Output for Space Shuttle Redesigned 
Solid Rocket Motor (RSRM) 
Propulsion System 


TA3-0318 



RSRM Propulsion System 



Length (in) 1,513.4 

Weight (Ibm) 1,255,979 




Advanced Propulsion Subsystem Concepts Database 



2/14/93 


February 14, 1993 


Background Information 


Engine Name: 

Space Shuttle Redesigned Solid Rocket Motor 


Class of Engine: 

Solid Fuel 

Chemical 


Background^ 

The original design and developmen. of the SRM occurred during the mid-1970s and the firs, shuttle High, was in April 1981. Modifications were made to 
increase the performance in the early 1980s with the design referred to as the high performance tnotorOlPM). The [ 9gg 

launched on the shuttle in August of 1983 (STS-8). The design presented here commenced in mtd-1986 and is referred to as the RSRM. It first fie 

Marshall Space Flight Center (MSFC) has the overall management responsibility for the design and procurement of the solid rocket boosters (SRB). Thiokol 
Space Operations is the contractor responsible for the development and production of the SRMs. the major component of the SRB. UnUed ^'“ ' nC - 

(USBfySunnyvale, California, has responsibility for the SRB aft and forward skirt refurbishment and assembly, USB1 also d 

plates, tunnel covets, and external tank (ET) attach ring, while the joint venture of Lockheed Space Operations Company (composed of Uxkheed, Thtokol, and 
Grumman) has the contract for the SRM and SRB assembly, checkout, launch, recovery, and disassembly. 

The two SRMs on the Space Shuttle provide the main thrust to lift the vehicle off the pad and up to an altitude of about 150,000 ft, 24 nmi (28 mi). On the 
pad, the two SRBs support the entire weight of the ET and orbiter and transmit the weight load through their structure to the mobile launch P la ^ or ^t 
RSRM booster has a thrust (sea level) of 29 Mlb at launch. They are ignited after the three shuttle main engtnes tout thrust level* venfied. The two SRMs 
provide 71 4 percent of the thrust at liftoff and accelerate the shuttle to approximately 3,100 mph before separating from the remainder of the shuttle launch 
vehicle. SRB apogee occurs 75 sec after SRB separation, at an altitude of 220,000 ft, 35 nmi (41 mi) down range. SRB impact occurs in the ocean 
approximately 122 nmi (141 mi) down range. 

The SRMs are the largest solid propellant motora ever flown and the firs, designed for reuse. Each is 126.11 ft (1,513.38 In.) long and 1216 ft (146.08 in.) in 
diameter. At launch, each weighs 1,255,978 lb of which 88 percent, 1.107.168 lb, is propellant The boosters are des.gned to be used 20 times. 

Primary elements of each booster are the motor (including case, propellant igniter, and nozzle), structure, separation systems, operational flight 
instrumentation, recovery avionics, pyrotechnics, deceleration system, thrust vector control system, and range safety destruct system. 

Each booster is attached to the ET at the SRB’s aft frame by two lateral struts and a diagonal strut. The forward end of each SRB is attached to the ET at the 
forward end of the SRB forward skirt. On the launch pad, each booster also is attached to the mobile launch platform at the aft skirt by four bolts which are 
severed by small explosives at liftoff. 

The propellant mixture in each SRB motor consists of ammonium perchlorate (oxidizer, approximately 69.7 percent by weight), aluminum (fuel, 16 percent), 
iron oxide (a bum rate catalyst, approximately 0.3 percent), a polymer (a binder that holds the mixture together, 12.04 percent), and an epoxy curing agent 
(1 96 percent). The propellant is molded into an 11-poin. star-shaped perforation in the forward portion of the forward segment that transitions into ^cylindrical 
perforation (CP) grain in the aft portion of the forward segment. Each of the three aft segments have aft tapered CP grains. This configuration provides high 
thrust at ignition, then reduces the thrust by approximately one-third, 20 sec after liftoff to prevent overdressing of the vehicle during maximum dynamic 
pressure (Max Q). 

Each RSRM is made up of four solid rocket motor casting segments. The segmented design provides maximum flexibility in RSRM fabrication, 
transportation, and handling. Each segment is shipped to the launch site on a heavy duty railcar with a specially built cover. 

The nozzle expansion ratio of each booster is 7.72:1. The moveable nozzle is gimbaled for thrust vector control (TVC) direction. Each SRB has its ° wn 
redundant auxiliary power units and hydraulic pumps. The omnidirectional gimbaling capability is 8 deg. Each nozzle has a carbon cloth phenolic liner which 
erodes and chare during firing. The nozzle is a convergent-divergent, movable design in which an aft pivot-point flexible bearing re the g.mbal mechanism. 

The cone-shaped aft skirt reacts the aft loads between the SRB and the mobile launch platform. Eight separation motors, four mounted on the aft skirtand four 
mounted on thefotwanf skirt provide the thrust and directional control to clear the SRBs from the orbiter and external tank after booster separation. The aft skirt 
contained avionics and TVC system which consists of two auxiliary power units, hydraulic pumps, and hydraulic system. 



^References* 
Source: 

Date: 

Entered by: 


Design Data Book (DDB) for Space Shuttle Redesigned Solid Rocket Motor (RSRM) - (TWR-16881) 

11/01/89 
Daniel Levack 
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Propulsion System General Data 


Creation Date 

18/31/92 


1 


Modification Date 

13/29/93 


Record Number 




[ 


Engine Name 
Claes of Engine 
Propulsion Type 
Acronym 
Application 
Manufacturer 
Program Status 
Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio - Engine/ Thrust Chamber 
^ Propellants ■ 

Oxidizer 
Fuel 


iSpace Shuttle Redesigned Solid Rocket Motor 
ISolld Fuel I iChemical 



iThlokol 


[Operational 


E 


es 


11988 


: c 


Iap~ 


lAluminum Powder 


Engine Design Life (Flights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 

Expansion Ratio 

TVC Method 
mm Dimensions^— 


[20 


No 


Maximum Length (Inches) 
Maximum Width (Inches) 
Engine Mass (Ibm) 


61 2i 


m 


Gimbal 


1.513.38) 


152.60| 


1 .255,979.00) 


f- Engine Thrust Data, Ibf ■ 

Nominal 
Maximum 
Minimum 


LfiYSl 

2.146,37l] 


1 


1 l 


Vacuum 

2,405,000) 


] 










February 14, 1993 


Motor Performance 1 


Engine Name: 


Space Shuttle Redesigned Solid Rocket Motor 


Class of Engine: Solid Fuel 



Chemical 




-•Propellant composition- 






Material 

Weloht. Percent Function 



|AP 

u d 

69.7 

I [Oxidizer 


□ 

|Aluminum Power 

3 d 

16 

) iFuel 


□ 

|HB Polymer (PBAN) 

3 d 

12.04 

“ 1 1 Binder 


□ 

|Epoxy Resin 

□ d 

1.96 

“H iCuring Agent 

□ 

| Ferric Oxide (Fe203) 

□ d 

0.3 

1 iBurn Rate Catalyst 

□ 

i 

□ d 


_ 1 1 


□ 

i 

i r~ 


1 1 


□ 

1 i 


Motor inrust, ipt ■■■ 



Sea Level 

Vacuum 


1 Maximum Expected Operating 
* Maximum Operating 
1 Burn Time Average 

C 

C 

c 

3.348, 37ll 1 

3,055,37l| 1 

2,337,37l| | 

3,607,000| 

3.314,000) 

2,596,000| 


1 Action Time Average 


c 

2,146,37l| | 

2,405,0001 



— impulse, iDT-sec^^^— 



Sea Level 

Vacuum 


Bum Time 


c 

260.850.636j 

289,71 3,600| 


Action Time 


c 

264,862,217) | 

296.777,000) 



—Throttle Ratio— 

Sea Level 

Vacuum 

Maximum 

1 _J [ 

1 

Minimum 

1 H [ 

1 




^Specific Impulse, sec-lbf/lbm—^ 

sea Level Vacuum 

Burn Time Avg 1 I I I 

Action Time Avg I 238.73| I 267. 50j 



1 Tvoe IBell - carbon phenolic ablative [ | 

Length (In) 1 

178.75| 

Diameter (in) 1 

149.67) 

Throat Area (sq. in) 1 

2,278| 

Expansion Ratio 1 

7.72 

Submergence Ratio, percent 1 

19| 

















February 22, 1993 


Motor Performance 2 


Engine Name: Space Shuttle Redesigned Solid Rocket Motor 

Class of Engine: Solid Fuel 


^•Engine Mass (lbm)« 

Total Mass w/TVC 
Total Mass wo/TVC 


1 .255,9791 


Envelope—— 

j— Length 

Nominal 
Stowed 
Extended 
Maximum Gimbai 


1513.381 


l 


Chemical 



■ — Diameter- 


Nozzle Exit 
Maximum 
Maximum Gimbai 


Envelope Dimensions in inches 


152.6| 


^Engine Component Masses< 


Weights. Ibm 
Case 

98,010 

Propellant 

Motor 

Igniter 

1,107,035 

134 

Insulation 

20,191 

External Insulation 

637 

Liner 

1,347 

Shipping Segment 

1,247,802 

Inhibitor 

1,800 

Items Shipped Separate 


Igniter Inerts 
Systems Tunnel 
Instrumentation 
Joint Heater Cable 
Nozzle-to- Forward Section 

485 

533 

80 

24 

17,524 

Exit Cone* 

Separation System 
Stiffener Rings* 

Joint Heater System 
Exit Cone Installation 
S&A Installation 
RSRM Installation 
System Tunnel Joints 

6,193 

231 

908 

348 

22 

15 

439 

21 



Total 

1,255,979 


' With external insulation installed 


"\ 






February 22, 1993 start-Up/Shutdown Sequences 


Engine Name: Space Shuttle Redesigned Solid Rocket Motor 

Class of Engine: Solid Fuel 


Chemical 


1 — 

-Startup Sequence—— 

Expected Nomina) Operational RSRM Sequence 

Time (seel 

Activity 

-6.0 

SSME Ignition 

0.0 

Fire signal to ignition system Initiators 

0.23 

RSRM liftoff at 563.5 psla chamber pressure 

21.5 

Burnout of star section web in forward segment 

78.5 

Burnout of aft tapered section in aft segment commences 

111.6 

Burnout of aft tapered section in aft segment complete and tailoff commences 

122.2 

Separation sequence Initiated; chamber pressure is 50 psia 

125.9 

RSRM physically separated (approximately) 

127.1 

Propellant burnout 

396.2 

Nozzle extension is severed and Jettisoned 

405.5 

Splashdown 


■ Shutdown Sequence 



February 20, 1993 


Start-Up/Shutdown Profiles 


Engine Name: Space Shuttle Redesigned Solid Rocket Motor 

Class of Engine: Solid Fuel 


Chemical 


>lsp Profile 


Nozzle 

Heedend Stagnation Vacuum Total Wees 

Preeaure Preeaure Thruat Flow Rale 

pete pale fcrf Ixn/aec 

(Nominal 60 *F and 0.388 Ipe Bum Rale) 


Specific 

Impiuee 

aec-IbWbm 


Nozzle 

Heedend Stagnation Vacuum 

Preeaure Preeaure Thruet 

paie peie W 

(Nominai 80 T and 0.388 ipa Bum Rale) 


Total Mesa 
Flow Rato 
IbnVaec 


Specific 

Impluee 

aec-tof/lbm 


910.03 

817.86 

3,177,676 

11,848.3 

896.99 

612.63 

3,162.380 

1 1,783.2 

890.68 

816.74 

3,196,184 

11,891.1 

896.68 

840.37 

3,298,001 

12,243.4 

887.96 

840.91 

3,314,382 

12,291.9 

879.63 

839.04 

3,321,176 

12,306.2 

873.86 

837.88 

3,330,801 

12.326.8 

832.69 

802.26 

3,198,880 

11,844.9 

778.2-1 

753.37 

3,009,303 

11,180.2 

735.86 

715.26 

2,862,180 

10,630.1 

699.16 

681.96 

2,733,822 

10,167.9 

664.90 

660.61 

2.612.666 

9.731.1 

638.26 

626.28 

2,619,380 

9,396.4 

615.63 

606.40 

2,439.666 

9,111-0 

594.16 

506.27 

2.362.641 

8,835.1 

800.75 

592.61 

2,396,414 

8,967.5 

610.67 

603.19 

2,443,410 

9.149.3 

622.55 

615.64 

2.498,140 

9,360.1 

629.32 

822.96 

2,532.199 

9.494 3 

635 40 

629.55 

2.563.350 

9.0179 

637.20 

624.26 

631.84 

619.37 

2.577,041 

2,530,472 

9.676 6 
8,510.6 


597.97 

593.55 

2.430,344 

566.47 

561.54 

2,304,312 

539.01 

536.47 

2,202,1 68 

515.03 

511.87 

2,109,693 

489.72 

486.88 

2,011,079 

460.83 

457.32 

1,891,307 

426.35 

424.16 

1 ,755,306 

357.07 

365.03 

1.506.404 

264.86 

253 61 

1,051.916 

170.56 

169.74 

670,474 

109.72 

109.20 

421,958 

99.75 

99.28 

383,268 

90.37 

89.94 

346,920 

82.02 

81.54 

314,600 

73.80 

73.26 

282,061 

66.33 

66.02 

250,136 

57.39 

57.12 

222,727 

50.15 

49.91 

197,245 

41.20 

41.00 

164,191 

32.59 

32.43 

131,574 

25.39 

25.27 

103,860 

19.53 

19.53 

81,296 





February 20, 1 993 


Start-Up/Shutdown Profiles 



Thrust Profile 



• Flowrate Profile 




Nozzle 





Haaderxj 

Stagnation 

Vacuum 

Total Mass 

Specific 

Time 

Pressure 

Preesure 

Thrust 

Flow Rale 

Impluse 

seconds 

paia 

peia 

Ibf 

KxrVeec 

sec-lbtflbm 


(Nominal 60 T and 0.388 ips Bom Rate) 



1.0 

910.93 

81786 

3.177,675 

11,646.3 

266.20 

2.0 

896.99 

812.63 

3,162.380 

11,783.2 

268.38 

4.0 

690 58 

818.74 

3,196,184 

11,691.1 

266.79 

8.0 

896 58 

640.37 

3,298,001 

12,243.4 

269.37 

12.0 

887 95 

840.91 

3,314,362 

12,291.9 

269.64 

18.0 

879.63 

839.04 

3,321,175 

12,305.2 

269.90 

20.0 

873 85 

837.88 

3,330.801 

12,328.8 

270,16 

24.0 

632.69 

802 25 

3.196,860 

11,844.9 

270.06 

28.0 

778,24 

753.37 

3,009,303 

11,160.2 

269.65 

32.0 

736.86 

715.26 

2,862,180 

10,630.1 

269.25 

36.0 

699.16 

681.96 

2.733,822 

10,167.9 

266.87 

40.0 

664.90 

060.61 

2.612,066 

9,731.1 

268.49 

44.0 

638.28 

626.20 

2,519,360 

9,396.4 

266.12 

48.0 

815,63 

606 40 

2,439,666 

9,111.0 

267.77 

52.0 

594.16 

566.27 

2,362.641 

8,836.1 

267.42 

580 

600.75 

592.61 

2,396,414 

6.967.5 

267.23 

60.0 

610.67 

603.19 

2,443,418 

9,149.3 

267.06 

640 

622.55 

815.64 

2.496.140 

9,360 1 

266.89 

68.0 

629.32 

622.96 

2,532,199 

9,494.3 

266.71 

72,0 

635 40 

629.55 

2.563,350 

9,817.9 

266.62 

76 0 

637 20 

631.84 

2,577.041 

9,676.8 

266.32 | 

80.0 

624 26 

619 37 

2.530,472 

9,510.6 

266.07 | 


Nozzle 

Headand Stagnation Vacuum Total Mass Specific 

pressure Pressure Thrust Flew Rale Impluse 

psle psis Ibf ttxrVsec sec-lbt/lbm 

(Nominal SOT end 0.388 ipe Sum Rate) 


597.97 

593.55 

2,430,344 

566.47 

661.54 

2,304,312 

539.01 

536.47 

2,202,168 

516.03 

51 1 87 

2,109.693 

489.72 

486.86 

2,01 1 ,079 

459.63 

467.32 

1,891,307 

426.36 

424.15 

1,756,306 

367.07 

366.03 

1,506,404 

264.86 

263.61 

1,061,918 

170.66 

169.74 

670,474 

109.72 

109.20 

421,968 

99.75 

99.26 

383,286 

90.37 

69.94 

346,920 

82.02 

81.64 

314,600 

73.60 

73.26 

282,061 

66.33 

65.02 

250,136 

57.39 

57.12 

222,727 

50.15 

49.91 

197,245 

41 .20 

41.00 

164,191 

32.59 

32 43 

131,574 

25.39 

25 27 

103,860 

1963 

1953 

81.296 
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Technology Development 




February 14, 1993 


Advanced Development Plan 





Figure 82. 


Output for NERVA Derived Nuclear 
Thermal Rocket Propulsion System 



NTRND Propulsion System 



Diameter (in) 11 90 

Weight (Ibm) 9 »570 




3/27/93 




3/13/93 







March 30, 1993 


Background Information 


Engine Name: Nuclear Thermal Rocket, NERVA Derivative 

Class of Engine: Nuclear Thermal 


Fission Reactor 


■ Background 

Representative background data for the NTPNE will be incorporated at a future date. 



"soured 0063 Rover/NERVA-Derived Near-Term Nuclear Propulsion, FY92 Final Report, October 22, 1992 (Final report of 
Rocketdyne contract with NASA-LeRC); Unpublished Rocketdyne data. 


Date: Unpublished data as of March 1993. 

Entered by: Dan Levack 
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Propulsion System General Data 



Creation Date 


Modification Date 


3/30/93 


Record Number 


Engine Name 
Class of Engine 
Propulsion Type 
Acronym 
Application 
Manufacturer 
Program Status 
Manrated 

lOC/Date Studied (Month/Year) 

Mixture Ratio — Engine/ Thrust Chamber 
Propellants 
Oxidizer l None 
c, mi iLiquid Hydrogen 


I 


Engine Design Life (Flights) 
Restart Capability 
Engine Cycle 

Nominal Chamber Pressure 




iNuclear Thermal 


I Fission Reactor 





I Space Transfer 

I Conceptual Engine (Rocketdyne Stud 




12-19-93 




Expansion Ratio 
TVC Method 

Dlmensions^^^^^^^™ 
Maximum Length (Inches) 
Maximum Width (Inches) 
Engine Mass (Ibm) 


■■ Engine Thrust Data, Ibf ■" 

Nominal 

Maximum 


9.570.0C 


Sfifl Lfflttl 

-110,757j 


Vacuum 


Minimum 








March 7, 1993 Engin e Performance 1 

Engine Name: Nuclear Thermal Rocket, NERVA Derivative 


Class of Engine: Nuclear Thermal 


Fission Reactor 


Fuel iLiquid Hydrogen 

Nominal Chamber Pressure (psla) 
Expansion Ratio 
Engine Design Life (Flights) 
mm Engine Thrust Data^^— 


Nominal 

Maximum 

Minimum 


[ 

[ 

l 


ZZ2 

784.001 

300.001 

ZZ3 


Vacuum 

50,000.00| 

1 


Engine Restarts 
Design 

Demonstrated 


r Engine Reliability, sec* 
Design 

Demonstrated 


16 , 200 j 


I 


Thrust data in units of Ibf 


























March 13, 1993 Start-Up/Shutdown Profiles 



Thrust Profile— 

I | 171.2 Minute Run Decay Power 






March 7, 1993 Start-Up/Shutdown Profiles 





March 7, 1993 


Start-Up/Shutdown Profiles 






March i3, 1993 Interfaces 







March 7, 1993 


Technology Development 




March 7, 1993 


Advanced Development Plan 




Figure 83. 


Field Definitions of the File 
“Prop System DB” 


Field Name 
Record Number 
Creation Date 

Modification Date 


Field Type 

Number 

Date 


Formula / Entry Option 

Serial Number with Current Value: ■If Increment: T 

Auto-enter the: 'Creation Date' 

Prevent data that is automatically entered from being changed. 

Auto-enter the: 'Modification Date' 

DrAWAn* riia+a that i* automaticallv entered from being changed. 


Propulsion Type Text 

Class of Engine Text 


Value List 
Cryogenic Liquid 
Hydrocarbon Liquid 
Storable Liquid 
Solid Fuel 
Hybrid SRB 
Metalized Fuels 
Nuclear Thermal 
Nuclear Electric 
Combined Nuclear 
Exotic 


Engine Name 

Text 

Acronym 

Text 

Application 

Text 

Manufacturer 

Text 

Program Status 

Text 

Manrated 

Text 

Mixture Ratio (0:F) Engine 

Number 

Mixture Ratio (0:F) 
Chamber 

Number 

lOC/Date Studied 

Text 

Engine Cycle 

Text 

Nominal Chamber Pressure 

Number 

Min Inlet Pressure (Oxid) 

Number 

Expansion Ratio 

Number 

TVC Method 

Text 

Maximum Length 

Number 

Maximum Width 

Number 

Engine Mass (Ibm) 

Number 

Oxidizer 

Text 

Fuel 

Text 

Nom Sea Level Thrust 

Calculation (Number) 

Nom Vac Thrust 

Number 

Max Sea Level Thrust 

Calculation (Number) 

Max Vac Thrust 

Number 

Min Sea Level Thrust 

Calculation (Number) 

Min Vac Thrust 

Number 

Isp Sea Level 

Calculation (Number) 

Isp Vacuum 

Calculation (Number) 

Engine Background 

Text 

Background Comments 

Text 

Reference Source 

Text 

Date of Reference 

Text 

Entered by 

Text 


, If (Norn Vac Thrust > 0, Norn Vac Thrust - 1 1 .545353 * 
NozzleDiameter * 2, ") 

. |f (Max Vac Thrust > 0, Max Vac Thrust - 1 1 .545353 * 
NozzleDiameter A 2, ") 

. |f (Min Vac Thrust > 0. Min Vac Thrust - 1 1 .545353 * 
NozzleDiameter A 2, ") 

- Isp SL Norn Thrust 
■ Isp Vac Nom Thrust 
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Field Name 


Formula / Entry Option 


Field Type 


Engine Design Life Starts 

Number 

Engine Design Life Sec 

Number 

Engine Design Life (Flights) 

Number 

Restart Capability 

Text 

Engine Design Restarts 

Number 

Engine Demo Restarts 

Number 

Design Rel (Starts) 

Calculation (Number) 

Design Rel (Sec) 

Calculation (Number) 

Demo Rel (Starts) 

Number 

Demo Rel (Sec) 

Number 

Isp SL Nom Thrust 

Calculation (Number) 

Isp Vac Nom Thrust 

Number 

Isp SL Max Thrust 

Calculation (Number) 

IspVacMaxThrust 

Number 

Isp SL Min Thrust 

Calculation (Number) 

Isp Vac Min Thrust 

Number 

NozzleType 

Text 

Nozzle Length 

Number 

NozzleDiameter 

Number 

Nozzle Throat Area 

Number 

Nozzle Exit Area 

Calculation (Number) 

Nozzle Expansion Ratio 

Number 

Throttle Ratio SL Max 

Number 

Throttle Ratio Vac Max 

Number 

Throttle Ratio SL Min 

Number 

Throttle Ratio Vac Min 

Number 

Max OX Pump Pres 

Number 

Max Fuel Pump Pres 

Number 

Nom OX Turbine Pres 

Number 

TVC Mass 

Number 

Max Gimbal Angle (deg) 

Number 

Max Gimbal Rate 

Number 

Nominal Length 

Calculation (Number) 

Stowed Length 

Number 

Extended Length 

Number 

Extended Length Max 
Gimbal 

Number 

Nozzle Exit Diameter 

Number 

Maximum Diameter 

Number 

Max Diameter Max Gimbal 

Number 

Total Mass TVC 

Number 

Total Mass w/o TVC 

Number 

Start Up Sequence 

Picture/Sound 

Shutdown Sequence 

Picture/Sound 

Thrust Startup Profile 

Picture/Sound 

Thrust Shutdown Profile 

Picture/Sound 

Isp Startup Profile 

Picture/Sound 


= Engine Design Life Starts 

* Engine Design Life Sec 

= If (Nom Vac Thrust > 0 , Isp Vac Nom Thrust * 
Thrust / Nom Vac Thrust, " ") 

» If (Max Vac Thrust > 0, If (IspVacMaxThrust > 

* Max Sea Level Thrust / Max Vac Thrust, 


* If (Min Vac Thrust > 0, If (Isp Vac Min Thrust : 
Thrust * Min Sea Level Thrust / Min Vac Thrust, 


= Nozzle Expansion Ratio * Nozzle Throat Area 


= Maximum Length 


Nom Sea Level 


0, IspVacMaxThrust 
*) 


0, Isp Vac Min 
" ■). ' ■) 
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Isp Shutdown Profile 
Flow Startup Profile 
Flow Shutdown Profile 
O/F Startup Profile 
0 IF Shutdown Profile 
Technology Development 
Adv Development Plan 
Interface 1 
Interface 2 
Interface 3 


Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 

Picture/Sound 


Engine Type 
Nom Fuel Turbine Pres 
Min Inlet Pressure (Fuel) 
Return Where? 


Text 

Number 

Number 

Calculation (Number) 


Which Data Entry? Calculation (Number) 


Class Type Calc 

Engine Component Masses 

Grain Design 

Noz Submergence Ratio 

Prop Material 1 

Prop Material 2 

Prop Material 3 

Prop Material 4 

Prop Material 5 

Prop Material 6 

Prop Material 7 

Prop Weight Percent 1 

Prop Weight Percent 2 

Prop Weight Percent 3 

Prop Weight Percent 4 

Prop Weight Percent 5 

Prop Weight Percent 6 

Prop Weight Percent 7 

Prop Function 1 

Prop Function 2 

Prop Function 3 

Prop Function 4 

Prop Function 5 

Prop Function 6 

Prop Function 7 

Burn Rate 


Calculation (Text) 

Picture/Sound 

Text 

Number 

Calculation (Text) 

Calculation (Text) 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Number 


« HfClass of Engine - 'Cryogenic Liquid" OR Class of Engine = 
'Hydrocarbon Liquid" OR Class of Engine * Storable Liquid , 17, 
if(Class of Engine - "Solid Fuel", 46, if (Class of Engine = "Hybrid 
SRB“ 75 if (Class of Engine ■ "Nuclear Thermal" OR Class of 

Electric" OR Class of Engine = "Nuclear Electric", 
104, if(Class of Engine =* "Exotic", 133,5))))) 

= if(Class of Engine * "Cryogenic Liquid" OR Class of Engine = 
"Hydrocarbon Liquid" OR Class of Engine = Storable Liquid 8, 
tf(Class of Engine - "Solid Fuel", 12, if (Class of Engine = Hybrid 
SRB", 13, if(Class of Engine = "Nuclear Thermal" OR Class of 
Engine - "Nuclear Electric" OR Class of Engine = "Nuclear Electric , 
14, if (Class of Engine - "Exotic", 15,5))))) 


f-s.1 


« Oxidizer 
» Fuel 
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Field Name 

Burn Rate Temp 
Burn Rate Pressure 
Burn Rate Exp 
Burn Time 
Action Time 
Max Exp Op Press 
Max Op Press 
Burn Time Avg Press 
Action Time Avg Press 
Max Exp Op Thrust Vac 
Max Op Thrust Vac 
Burn Time Avg Thrust Vac 
Action Time Avg F Vac 
Burn Time Impulse Vac 
Action Time Impulse Vac 
Action Time Avg F SL 

Max Exp Op Thrust SL 

Max Op Thrust SL 

Burn Time Avg Thrust SL 

Burn Time Impulse SL 

Action Time Impulse SL 

Press Startup Profile 
Press Shutdown Profile 
Burn Time Avg Isp SL 

Burn Time Avg Isp Vac 
Action Time Avg Isp SL 

Action Time Avg Isp Vac 
Reactor Type 
Fuel Type 
Max Fuel Temp R 
Propellant Temp R 
Impulse Startup Profile 
Impulse Shutdown Profile 
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Field Type 

Number 

Number 

Number 

Number 

Number 

Number 

Number 

Number 

Calculation (Number) 

Number 

Number 

Number 

Calculation (Number) 
Calculation (Number) 
Calculation (Number) 
Calculation (Number) 

Calculation (Number) 

Calculation (Number) 

Calculation (Number) 

Calculation (Number) 

Calculation (Number) 

Picture/Sound 
Picture/Sound 
Calculation (Number) 


Number 

Calculation (Number) 

Calculation (Number) 

Text 

Text 

Number 

Number 

Picture/Sound 

Picture/Sound 


Formula / Entry Option 


* Nominal Chamber Pressure 


= Norn Vac Thrust 

s Bum Time Avg Thrust Vac * Bum Time 
= Action Time Avg F Vac * Action Time 

- If (Action Time Avg F Vac > 0, Action Time Avg F Vac - 1 1 .545353 
♦NozzleDiameter A 2, “ ") 

* If (Max Exp Op Thrust Vac > 0, Max Exp Op Thrust Vac - 
11.545353 * NozzleDiameter A 2," ") 

« If (Max Op Thrust Vac > 0, Max Op Thrust Vac - 1 1 .545353 * 
NozzleDiameter A 2, ■ B ) 

= If (Bum Time Avg Thrust Vac > 0, Burn Time Avg Thrust Vac - 
11.545353 * NozzleDiameter A 2, " ") 

« If (Burn Time Avg Thrust SL > 0, Burn Time Avg Thrust SL * Burn 
Time, " *) 

, If (Action Time Avg F SL > 0, Action Time Avg F SL * Action Time, 


= If (Burn Time Avg Thrust Vac > 0, If (Burn Time Avg Isp Vac > 0, 
Bum Time Avg Isp Vac * Burn Time Avg Thrust SL / Burn Time Avg 
Thrust Vac, B "), " ") 

* If (Action Time Avg F Vac > 0, If (Action Time Avg Isp Vac > 

0 Action Time Avg Isp Vac * Action Time Avg F SL / Action Time 
Avg F Vac,' V “) 

» Isp Vac Nom Thrust 


Prop System DB 


Figure 84. 


Field Definitions of the File 
“Prop System DB-Pictures” 


Formula / Entry Option 


Field Name 
Record Number 

Class of Engine 


Engine Name 
Acronym 

Engine Type 

Mixture Ratio (0:F) 

Nominal Chamber Pressure 
(psia) 

Expansion Ratio 

Norn Sea Level Thrust (Ibf) 

Nom Vac Thrust 

Isp Sea Level (sec) 

isp Vacuum 

Maximum Length 

Maximum Width 

Engine Mass 

Engine Drawing 
Engine Balance 
Engine Type Calc 
Engine Class Clac 


Field Type 
Number 

Text 


Text 

Text 

Text 

Number 

Number 

Number 

Number 

Number 

Number 

Number 

Number 

Number 

Number 

Picture/Sound 
Picture/Sound 
Calculation (Text) 
Calculation (Text) 


Lookup: 'Record Number* In 'Prop System DB' when 'Engine 
Name" matches "Engine Name" 

If no match, copy: " " 

Value List: 

Cryogenic Liquid 
Hydrocarbon Liquid 
Storable Liquid 
Solid Fuel 
Hybrid SRB 
Metalized Fuels 
Nuclear Thermal 
Nuclear Electric 
Combined Nuclear 
Exotic 

Lookup: 'Class of Engine' In 'Prop System DB' when 'Engine 
Name' matches 'Engine Name* 

If no match, copy: *' 


Lookup: 'Acronym* in 'Prop System DB' when 'Engine Name' 
matches "Engine Name" 

If no match, copy: *' 

Lookup: 'Engine Type' In 'Prop System DB' when 'Engine Name' 
matches 'Engine Name" 

If no match, copy: *' 

Lookup: 'Mixture Ratio (0:F) Engine' in 'Prop System DB' when 
'Engine Name" matches 'Engine Name" 

If no match, copy. " 

Lookup: "Nominal Chamber Pressure' In 'Prop System DB' when 
■Engine Name' matches 'Engine Name" 

If no match, copy: '" 

Lookup: 'Expansion Ratio* in 'Prop System DB* when 'Engine 
Name* matches "Engine Name" 

If no match, copy: " 

Lookup: "Nom Sea Level Thrust* In 'Prop System DB" when 
'Engine Name* matches 'Engine Name* 

If no match, copy: '" “ 

Lookup: 'Nom Vac Thrust* in 'Prop System DB' when 'Engine 
Name' matches 'Engine Name" 

If no match, copy: “ 

Lookup: "Isp Sea Level' in "Prop System DB' when 'Engine Name* 
matches 'Engine Name' 

If no match, copy: ** 

Lookup: 'Isp Vacuum* in 'Prop System DB' when “Engine Name" 
matches 'Engine Name" 

If no match, copy: " 

Lookup: "Maximum Length' in “Prop System DB" when "Engine 
Name' matches 'Engine Name" 

If no match, copy: *' '* 

Lookup: 'Maximum Width' in 'Prop System DB" when 'Engine 
Name* matches "Engine Name" 

If no match, copy: '* *' 

Lookup: 'Engine Mass (Ibm)* in 'Prop System DB' when "Engine 
Name' matches 'Engine Name" 

If no match, copy: " ** 


» Engine Type 
3 Class of Engine 
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Formula / Entry Option 


Field Name Field Type 


Action Time Avg F SL 

Number 

Action Time Avg F Vac 

Number 

Action Time Avg Isp SL 

Number 

Action Time Avg Isp Vac 

Number 

Action Time Avg Press 

Number 

Action Time 

Number 

Fuel 

Text 


Lookup: ’Action Time Avg F SL’ In ’Prop System DB’ when ’Engine 
Name’ matches ’Engine Name’ 

If no match, copy: ’’ ” 

Lookup: ‘Action Time Avg F Vac’ in ’Prop System DB’ when 
’Engine Name" matches ’Engine Name’ 

If no match, copy: ” ” 

Lookup: 'Action Time Avg Isp SL" in ’Prop System DB" when 
’Engine Name* matches ’Engine Name" 

If no match, copy: 

Lookup: ’Action Time Avg Isp Vac’ in ’Prop System DB" when 
’Engine Name’ matches ’Engine Name’ 

If no match, copy: ” 

Lookup: "Action Time Avg Press’ in "Prop System DB when 
"Engine Name’ matches ’Engine Name" 

If no match, copy: ” ” 

Lookup: ’Action Time’ In ’Prop System DB" when ’Engine Name" 
matches ’Engine Name’ 

If no match, copy: ” ” 

Lookup: ’Fuel* In "Prop System DB" when ’Engine Name” matches 
■Engine Name* 

If no match, copy: ” ” 
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Appendix 


Use of Fortran Externals with 
Resolve™ and Excel™ 


USER GUIDE 


Subject: 


Written By: 


3.2.3 

David W. Harris 
Rocketdyne Division 
Rockwell International 
PO Box 7922 
6633 Canoga Ave. 

Canoga Park, CA 91309-7922 
(818) 718-4677 
Date: March 10, 1993 

INFORMATION PROVIDED IN THIS E I T HE R 

(collectively referred to as an User gmde) IS PROyiD^ASls wi . n ^ OF MERCHANTABILITY 

User guide. This User guide may be copied and d, ^ r ' but ^ d J is inc i u ded ^all files on the disk(s) must be copied 

:;r: isss tisu-. * «««, - 4, ™ «» ^ ™» « •» 

d| »,bu, t d fo, p»n- b]a C|a[li Rcso|vt „ d Reso ,„ „ reg i„ OT d -..K of a.ns ConpoMion 
Macintosh is a registered trademark of Apple Computer Incorporated. 

This document was created using Microsoft Word for the Macintosh. 


Purpose: 


This User euide is to lead a person with limited knowledge of Macintosh 
Droeramine 8 through the steps necessary to turn a FORTRAN subroutine into an 
Resolve external function. This guide assumes that the user has a little familiarity 
wUh .heS™ag“ Systems FORTRAN ~n.pi.er 

detailed information refer to the Language Systems FORTRAN Reference Manu 
and to the Resolve User Guide and Claris Technical Note. 


INTRODUCTION 


Claris Resolve versions l.lvl and above have the ability to call external code that 
can be used as spreadsheet functions. This code is an assembly language code with 
the proper data handling that allows it to be called or linked to other code. To create 
a Resolve external function with this guide you must have the following. 


1. The CHookc . c . o object file 

2. A FORTRAN subroutine Setup, f 

3. A FORTRAN subroutine FHook. f 

4. Your FORTRAN subroutine 

5. Funcname application 


Because of the required interface between Resolve and an external function an 
interface programor "hook" had to be written in "C" code. This program handles 
the setting of variables that Resolve uses to call the external function and the 
passing of program variables. A hook called CHookc.c.o was created as a generic 
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interface. This hook calls two FORTRAN subroutines, Setup. f and FHook. f. The 
Setup, f subroutine supplies the CHook with two necessary pieces of information, 
the name of the function to be used by Resolve and the number of input arguments. 
The name of the function is not the file name but the function name used in the 
Resolve script to call the external function. The function name cannot be over 8 
characters long. Because the passing of string variables from FORTRAN to C is 
tricky, an application, Funcname, has been provided to create the setup, f file. 
Executing this program will create a complete setup, f file ready for compiling and 
linking. FHook. f is the front-end for your subroutine. Your subroutine will be 
called by FHook. f. FHook. f must be written with two arguments, an input array 
and an output array. Both arrays must be double precision real and dimensioned 
input(*) and output(lOO). The generic "C" hook was written to handle infinite input 
and 100 output variables. FHook. f can be used to manipulate the input and output 
data to your subroutine. That is do things such as reassign the values to other 
variable, change from double to single precision, convert the value and so on. 

The following is a set of steps that will allow you to create a Resolve external using 
the CHookc . c . o interface. It is suggested that all of the steps are followed the first 
time. After that any changes to the FORTRAN code that do not change file names 
will require only a simple Build command and maybe minor changes to the 
Resolve script. 

STEP 1 Create a SetUp subroutine. To do this run the program Funcname. This program 
will create a file SetUp.f that is necessary for the Resolve interface. When 
Funcname asks for ’Resolve Function Name', enter the name that you what to call 
the function in Resolve and for 'Number of Input variables', enter the number of 
input variables to your subroutine. 

STEP 2 Launch MPW 

STEP 3 Open (File, Open...) and change your FORTRAN subroutine so that it meets the 
programing rules. 

Programing Rules 

• No global or static storage: FORTRAN programs can have no COMMON , BLOCK 
DATA, or SAVE statements and the -saveall compiler option cannot be used to force 
static storage. 

• No FORTRAN I/O statements: see the following list. A lack of I/O is a serious 
limitation, but I/O is often for user interaction which is the function of Resolve. 


ACCEPT 

OPEN 

BACKSPACE 

PAUSE 

CLOSE 

PRINT 

DECODE 

READ 

ENCODE 

REWIND 

ENDFILE 

STOP 

FORMAT 

TYPE 

INQUIRE 

WRITE 

NAMELIST 



• No character constants: a statement such as 

CHARACTER*26 myString myString = 'I paid my taxes on April 7. ' 
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will cause a linker error. Using character* 1 arrays initialized with data 
statements or char ( ) functions can be used to create a character constant. 


STEP 4 Create (File, New) a Resolve to FORTRAN interface function This subroutine 

ST must have the name FHook . f . The following function can be used as a boiler plate 

code. 


SUBROUTINE FHook ( ar gs, revals ) 


REAL* 8 args(*), revals (100) 

REAL* 8 argl, arg2, arg3,arg4,arg5 

REAL *8 arg6 , arg7 , arg8 , arg9 , arglO , argil , argl2 


c 

c 

c 

c 

c 

c 

c 

c 


If your subroutine needs other type of variables (real*4, integer, 
etcO use the appropriate conversion function to avoid garbage from 
being passed. Here are some examples 


a = SNGL( args ( 1 ) ) 
b = IDINT(args(2) ) 
c = IIDINT(args(3) ) 
args(4) = DBLE(d) 

argl = args(l) 
arg2 = args ( 2 ) 
arg3 = args ( 3 ) 
arg4 = args(4) 
arg5 = args ( 5 ) 


Ifrom real*8 to real*4 
[from real*8 to integer*4 
Ifrom real*8 to Integer*2 
!any to real*8 


IThis is the setting of the subroutine 
1 arguments. Add more statements as 
las needed. 


c Calling your subroutine. Change this call as necessary to match 
c your subroutine . 


call yoursub(argl,arg2,arg3,arg4,arg5, 

, arg6,arg7,arg8,arg9,argl0, argil, argl2) 


revals ( 1 ) 
revals ( 2 ) 
revals(3) 
revals ( 4 ) 
revals ( 5 ) 
revals ( 6 ) 
revals ( 7 ) 


arg6 

arg7 

arg8 

arg9 

arglO 

argil 

argl2 


IThis sets the output array 
iwith the appropriate 
l subroutine arguments. 


return 

end 


Create a Build script. Either use the following example Build script file (saved as 
ResExtern . make) as boiler plate or use the Create BllildCommandS menu. 
It is important to include CHookc . c . o in the objects sections. CHookc . c . o is the 
Resolve to FORTRAN hook. 


# Files 

# Target : 

# Sources s 

# Created: 


ResExtern. make 
ResExtern 

FHook. f Setup. f your sub. f 

Friday, March 5, 1993 2: 21; 05 PM 
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OBJECTS = CHookc.c.o FHook.f.o SetOp.f.o yoursub.f.o 

ResExtem // ResExtern.make {OBJECTS} 

Link -t RsTl -c Rslv d 
{OBJECTS} d 

" {Libraries} "Runtime. o d 
" {Libraries } " Interface . o d 
" {FLibraries} "FORTRANlib.o d 
" {FLibraries } " IntrinsicLib. o d 
-o ResExtern 

FHook.f.o / ResExtern.make FHook.f 
FORTRAN FHook.f -opt=l 
Setup. f.o / ResExtern. make Setup. f 
FORTRAN Setup. f -opt-1 
yoursub.f.o / ResExtem . make yoursub.f 
FORTRAN yoursub.f -opt=l 

Running Create Build Commands 

1. Select Create Build Commands... under the Build menu. 

2. In Program Name type the name of the file used in the filejext argument of 
the GET external function. In the above example the Program Name is 
ResExtern. 

3. Click on the Source Files... button and select the function and subroutines that 
will be linked together. These include FHook.f and Setup. f as well as your 
subroutine. 

4. Click on CreateMake 

5. Open the file "Program Name". make (in the above example it would be 
ResExtern.make) and change the following: 

Add CHookc . c . o in the front of the objects list. 

Remove : -w -f -srt -ad 4 
Change the APPL to RsTl 
Change the '????' to Rslv 
Remove the lines: 

Echo "Include d“ {FLibraries}Fresources.rd" ; " > 

" {FLibraries} Resource. inc" 

Rez "{FLibraries} Resource. inc" -a -m -o “filename." 

FSIZE "filename." 

Remove the following libraries: 

" {FLibraries} "FSANELib.o d 

Remove unnecessary libraries noted by the Linker. They will not cause a linker 
abort, but there will be a warning. 

STEP 6 Run Build... under the Build menu. In the window type the program file name. 

STEP 7 Correct the code to remove any compile and linker errors and repeat STEP 6. 

STEP 8 Quit MPW 
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STEP 9 Move the compiled function file into the same folder as the Resolve application. 

STEP 10 Launch Resolve 

STEP 1 1 Create a Button using button tool from tool palette. Name it Load (Edit, Button 
Info...) 

STEP 12 Open the button script (Script, Button Script) and write: 

GET EXTERNAL "sResExteni" . 

Replace the word Res Extern with the name of your compiled function file. 

STEP 13 Close button script and save. 

STEP 14 Create a Button using button tool from tool palette. Name it Calculate (Edit, 

Button Info...) 

STEP 15 Open the button script (Script, Button Script) and write a Resolve script that 
defines your input variables, one output variable and a counter. Because Resolve 
External Functions can only return one value at a time you will have to create a loop 
and call your function once for each subroutine return variable you want. Your 
function call will include each of your input variables and the counter. The counter 
must be the last item in the list. Assign the return variable to the function (ie. x = 
function). For the first call to the function the counter must be equal to zero. The 
return value will be the first return variable. Therefore, the loop counter should go 
from zero to "the number of return variables"-!. The follow example is for the 
function FHook in the ResExtern file. FHook has 5 input variables and 7 output 
variables. The input values are located in cells Bl, B2, B3 B4 and B5 on the 
spreadsheet. The return values will be placed in cells c 1 , C2, C3, C4, C5, C6 
and C7 as directed by the put x statement. 

DEFINE a,b,c,d,e,n,x 
a = Bl 
b = B2 
c = B3 
d = B4 
e = B5 

FOR n = 0 TO 6 

x = ResExtern:FHook(a,b,c,d,e,n) 

PUT X INTO MAKECELL ( 3 , n+1 ) 

END FOR 

Replace the word ResExtern with the name of your compiled function file and 
FHook for the name you specified when running Funcname. 

STEP 16 Close button script 

STEP 17 Press the"Load" button This loads the external function. 

STEP 18 Press the "Calculate” button to run the function 

STEP 19 Save worksheet. 

After following this procedure you will have two files to keep track of: 
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• FORTRAN Function 

• Resolve worksheet 

To avoid operational problems keep these files in the same folder. Similarly there 
are FORTRAN files that should be kept together: 

• Function source code file 

• Any Subroutine source code files 

• Function .make file 


PROBLEMS 

The following are some special errors that may occur during the development 
process and some hints that may help to eliminate these problems. 


Compiling 


No special errors. 


Linking 

1 . Cannot modify 32 bit instructions. The object files were complied with the wrong 
compiler settings. Delete all of the .f.o object files and re-run the Build. 


Resolve 

1. Invalid argument. CHookc.c.o was written to check for non-numeric input 
variables. This error means that a non-numeric value has been entered an input cell 
of the spreadsheet. 

2. Can not open function. , . , . 

Check the function name in the script to be sure it is the same name as specified 

in Setup, f. , _ , ... 

Check that the function file is in the same folder as the Resolve application. 

Use Open- Tool smySFGetFile external function. See next section for more 
information. 


Open ■ Tool smySFGetFile 

A useful tool for finding a file while running a Resolve script is the external 
function mySFGetFile. This function will open a standard "Open File window 
and allow the user to find the desired file. This function returns the full path name 
of the file which can be used with file functions to load or open the file. The 
function mySFGetFile is located in the file Open -Tool. This file comes with 
Resolve and is located in the folder External Examples within the Resolve Samples 

There are many ways to setup your Resolve folder, but for simplicity and this 
example create a folder named Externals and place it in the same folder as the 
Resolve application. Move or copy the Open -Tool file into the Externals folder. 
Now the script line: 

GET EXTERNAL " : Externals : Open • Tool " 
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will load the Open*Tool:mySFGetFile function. The form of the function is: 

Open • Tool smySFGetFile ( <prcanpt string>, ”<f ile typel>" , "<file 
type2>" , "<file type3>" , "<file type4> ) 

were file typel, file type2, file type3 and file type4 are file type filters 
fe 0 PICT APPL TEXT, etc). These filters will cause files of the type specified 
to appear in the Open dialog. If no filters are passed, files of all types will appear. 
In the case of Resolve external functions the file type is RsTl. The following 
example shows how the script in STEP 15 would be written when the 
mySFGetFile function is added within an error handling routine (ON ERROR). 


DEFINE a, b,c,d,e,n,x, fullpath 
a = B1 
b = B2 
c = B3 
d = B4 
e = B5 

GET EXTERNAL ” : Externals: Open -Tool" 

GET EXTERNAL "ResExtern” 

FOR n = 0 TO 4 

x = ResExtern:FHook(a,b,c,d,e,n) 

PUT X INTO MAKECELL ( 3, n+1) 

END FOR 


ON ERROR 

y = LError ( ) 

Jp [y = 61 ) 

fullpath = 'Open -Tool: mySFGetFile' ("Please 

ResExtern : , RsTl , , i ) 

GET EXTERNAL fullpath 


END IF 
IF(y = 12) 


SOUND EFFECT "Monkey” 
SOUND EFFECT "Monkey” 
SOUND EFFECT "Monkey" 
MESSAGE SError( ) 

ABORT 


find 


END IF 
END ERROR 


The mySFGetFile function can also be added to the resource fork of the 
spreadsheet. To do this requires ResEdit and a knowledge of how to use it. 
WARNING: Misuse of ResEdit can cause irreparable damage to files and 
applications. 


FPU OPTIONAL CODE 

Language System FORTRAN has the option of compiling your code to take 
advantage of the type of machine and the presence of an FPU. Because his is 
compiler option Language System FORTRAN will allow for FPU optional code 
generation. Meaning that the same external function can run on a Plus as well as a 

Page 7 of 10 Printed: Wednesday, March 10, 1993 

FORTRAN external functions for Claris Resolve and Language System FORTRAN 


STEP 20 
STEP 21 

STEP 22 


Quadra 950 and take advantage of the FPU. To do this requires minimal additional 
programing. 

Duplicate your subroutine and give the file a different name than the original. 

Modify this file by renaming the main subroutine and all lower subroutines and 
subroutine calls. Failure to do this will cause a linker warning about duplicate 
names and could cause run time problems. 

Modify the FHook.f file by adding the following lines between the last declaration 
and the first operational line: 


STEP 23 


11 MP Inlines. f 

INCLUDE ' {MPW} Interfaces : FIncludes : OSUtils . f ' 
INCLUDE ' {MPW} Interfaces j FIncludes : Traps . f ' 


POINTER /SysEnvRec/ SysEnvRecPtr 


SysEnvRecPtr = NewPtr(sizeof (SysEnvRec) ) 

OSErr = SysEnvirons ( curSysEnvVers , SysEnvRecPtr ) 


Modify the FHook.f file prior to the subroutine call by adding an if-then statement 
checking the variable SysEnvRecPtr* . hasFPU. In the TRUE section of the if put 
the call to the new subroutine. In the FALSE section put the original call. Save 

FHook.f. 


The FHook.f program in STEP 4 would now look like this: 


SUBROUTINE FHook ( args , revals ) 

REAL*8 args(*), revals (100) 

REAL* 8 argl , arg2 , arg3 , arg4 , arg5 

REAL* 8 arg6 , arg7 , arg8 , arg9 , arglO , argl 1 , argl2 


1 IMP Inlines. f 

INCLUDE ' {MPW} Interfaces : FIncludes : OSUtils . f 
INCLUDE ' {MPW} Interfaces : FIncludes: Traps. f ' 


POINTER /SysEnvRec/ SysEnvRecPtr 


SysEnvRecPtr = NewPtr(sizeof (SysEnvRec) ) 

OSErr = SysEnvirons (curSysEnvVers , SysEnvRecPtr ) 


c 

c 

c 

c 

c 

c 

c 

c 


If your subroutine needs other type of variables (real* 4, integer, 
etc . ) use the appropriate conversion function to avoid garbage from 
being passed. Here are some examples 


a = SNGL(args(l) ) 
b = IDINT(args(2) ) 
c = IIDINT(args(3) ) 
args(4) = DBLE(d) 


l from real* 8 to real*4 
l from real*8 to integer*4 
tfrom real* 8 to Integer* 2 
l any to real*8 


arql = args ( 1 ) IThis is the setting of the subroutine 

arg2 = args ( 2 ) 1 arguments . Add more statements as 

arg3 = args (3) las needed. _ 
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c 

c 


arg4 = args(4) 
arg5 = args ( 5 ) 

Calling your subroutine. Change this call as necessary to match 
your subroutine. 

if ( Sy sEnvRecPtr A . hasFPU ) then 

c Use FPU . _ 

call yoursub8 1 ( argl , arg2 , arg3 , arg4 , arg5 , 
s, arg6 , arg7 , arg8 , arg9 , arglO , argil , argl2 ) 


else 


c NO FPU 

call yoursub(argl,arg2,arg3,arg4,arg5, 

& arg6, arg7, arg8,arg9, arglO, argil, argl2 ) 

end if 

revals(l) — arg6 
revals(2) = arg7 
revals ( 3 ) = arg8 
revals ( 4 ) = arg9 
revals ( 5 ) = arglO 
revals(6) = argil 
revals(7) = argl2 

return 
end 

STEP 24 Modify the .make file by adding the new subroutine file in the compile list. Do this 
by copying the old subroutine compile directive and pasting it to the end ot the 
compile list. Change the old subroutine name to the new name. Add to the compiler 
options of the new subroutine -MC68020 -MC-68881. These new options will take 
advantage of 68020 and above CPUs with 68881 and above FPUs. This covers 
most of the Mac IIs and the new high end Macs. The new mid range Macs may or 
may not have an FPU. Add the new subroutine object file name in the objects list 
and save the file. 

The Make file in the first STEP 5 would now look like this: 


tThis sets the output array 
lwith the appropriate 
1 subroutine arguments. 


# Files 

# Target s 

# Sources ; 

# Created: 


ResExtern . make 
ResExtern 

FHook.f Setup. f yoursub.f 
Friday, March 5, 1993 2:21:05 PM 


OBJECTS = CHookc.c.o FHook.f. o Setup. f.o yoursub.f. o yoursub8 1 . f . o 


ResExtern // ResExtern. make {OBJECTS} 

Link -t RsTl -c Rslv d 
{OBJECTS} d 

"{Libraries} "Runtime. o d 
"{Libraries}" Interf ace. o d 
" {FLibraries} "FORTRANlib.o d 
"{FLibraries}"IntrinsicLib.o d 
-o ResExtern 

FHook.f.o / ResExtern. make FHook.f 
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FORTRAN FHook.f -opt=l 
Setup. f.o / ResExtern . make Setup. f 
FORTRAN Setup. f -opt=l 
your sub. f.o / ResExtern. make your sub. f 
FORTRAN yoursub.f -opt=l 
voursub81 .f.o / ResExtern. make yoursub81.f 

FORTRAN yoursub81.f -opt=l -MC68020 -MC68881 

STEP 25 Re-run the make file by using the Build... under the Build menu. 

This new external function will work on all Macs If the Mac has an ^FPU the 
performance of the function will be increased over the original function created in 

STEP 1 through STEP 19. 
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This document was created using Microsoft Word for the Macintosh. 


Purpose: 


This User guide is to lead a person with limited knowledge of Macintosh 
programing through the steps necessary to turn a FORTRAN subroutine into an 
Resolve external function. This guide assumes that the user has a little familiarity 
with the Absoft FORTRAN compiler and Claris Resolve. For more detailed 
information refer to the MacFortran II Reference Manual and to the Resolve User 
Guide and Claris Technical Note. 


INTRODUCTION 

Claris Resolve versions l.lvl and above have the ability to call external code that 
can be used as spreadsheet functions. This code is an assembly language code with 
the proper data handling that allows it to be called or linked to other code. To create 
a Resolve external function with this guide you must have the following: 

1 . The CHookc . c . o object file 

2. A FORTRAN subroutine Setup, f 

3. A FORTRAN subroutine FHook. f 

4. Your FORTRAN subroutine 

5. Funcname application 

Note: The Absoft MacFortran II compiler creates code that requires an FPU. 
Therefore, the code development described here will not work on some of the older 
Mac's (Plus.SE) and some of the newer ones without FPUs (Classic, LC, SI, 

Centris). 
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STEP 1 


STEP 2 
STEP 3 


Because of the required interface between Resolve and an external function an 
interface program or "hook" had to be written in "C" code. This program handles 
the setting of variables that Resolve uses to call the external function and the 
passing of program variables. A hook called CHookc.ao was created as a generic 
interface. This hook calls two FORTRAN subroutines. Setup, f and FHook. f. The 
Setup . f subroutine supplies the CHook with two necessary pieces of information, 
the name of the function to be used by Resolve and the number of input arguments. 
The name of the function is not the file name but the function name used in the 
Resolve script to call the external function. The function ^ 

characters long. Because the passing of string variables from FORTRAN to C is 
tricky, an application, Funcname, has been provided to create the setup . f tile. 
Executing this program will create a complete Setup, f file ready for compiling and 
linking. FHook. f is the front-end for your subroutine. Your subroutine will be 
called by FHook. f. FHook. f must be written with two arguments, an input array 
and an output array. Both arrays must be double precision REAL and dimensioned 
input(*) and output(lOO). The generic "C” hook was written to handle infinite inpu 
and 100 output variables. FHook. f can be used to manipulate the input and outpu 
data to your subroutine. That is do things such as reassign the values to other 
variable, change from double to single precision, convert the value and so on. 

The following is a set of steps that will allow you to create a Resolve external using 
the CHookc . c . o interface. It is suggested that all of the steps are followed the first 
time. After that any changes to the FORTRAN code that do not change file names 
will require only a simple Build command and maybe minor changes to the 
Resolve script. 

Create a SetUp subroutine. To do this run the program Funcname. This program 
will create a file SetUp.f that is necessary for the Resolve interface. When 
Funcname asks for ’Resolve Function Name', enter the name that you what to call 
the function in Resolve and for 'Number of Input variables , enter the number o 
input variables to your subroutine. 

Launch MPW 

Open (File, Open...) and change your FORTRAN subroutine so that it meets the 
programing rules. 


Programing Rules 

• No global or static storage: FORTRAN programs can have no common , BLOCK 
DATA or SAVE statements and the -s compiler option cannot be used to force static 

storage. 

• No FORTRAN I/O statements: see the following list. A lack of I/O is a serious 
limitation, but I/O is often for user interaction which is the function of Resolve. 


ACCEPT 

OPEN 

BACKSPACE 

PAUSE 

CLOSE 

PRINT 

DECODE 

READ 

ENCODE 

REWIND 

ENDFILE 

STOP 

FORMAT 

TYPE 

INQUIRE 

WRITE 

NAMELIST 
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• No run time error messages: some compiler options such as the "Check array 
boundaries" option, -C, and the subprogram folding options, -z and -Z, can 
generate a run time error message. A CASE statement with a missing CASE 
DEFAULT can also cause a run time error unless the -N4 option is used. 

• No character constants: a statement such as 

CHARACTER* 2 6 myString myString = 'I paid my taxes on April 7. 

will cause a linker error. Using character* 1 arrays initialized with data 
statements or char ( ) functions can be used to create a character constant. 


STEP 4 Create (File, N 6 111) a Resolve to FORTRAN interface function. This subroutine 
must have the name FHook. f . The following function can be used as a boiler plate 

code. 


SUBROUTINE FHook ( args , revals ) 


REAL* 8 args(*), revals (100) 

REAL* 8 argl , arg2 , arg3 , arg4 , arg5 

REAL* 8 arg6 , arg7 , arg8 , arg9 , arglO , argil , argl2 


c 

c 

c 

c 

c 

c 

c 

c 


If your subroutine needs other type of variables (real*4, integer, 
etc . ) use the appropriate conversion function to avoid garbage from 
being passed. Here are some examples 


a = SNGL(args(l) ) 
b - IDINT ( args ( 2 ) ) 
c = IIDINT(args(3) ) 
args(4) = DBLE(d) 


l from real*8 to real*4 
if ran real*8 to integer*4 
If ran real*8 to Integer*2 
lany to real* 8 


argl = args(l) 
arg2 = args ( 2 ) 
arg3 = args ( 3 ) 
arg4 = args ( 4 ) 
arg5 = args(5) 


JThis is the setting of the subroutine 
! arguments. Add more statements as 
las needed. 


c Calling your subroutine. Change this call as necessary to match 
c your subroutine . 


call yoursub ( argl , arg2 , arg3 , arg4 , arg5 , 

, arg6,arg7,arg8,arg9,argl0 / argll,argl2) 


revals ( 1 ) 
revals(2) 
revals ( 3 ) 
revals ( 4 ) 
revals ( 5 ) 
revals(6) 
revals ( 7 ) 


= arg6 
= arg7 
= arg8 
= arg9 
= arglO 
= argil 
= argl 2 


IThis sets the output array 
iwith the appropriate 
! subroutine arguments. 


return 

end 


Page 3 of 8 Printed: Wednesday, March 10, 1993 


FORTRAN external functions for Claris Resolve and Absoft MacFortran II 



STEP 5 


Create a Build script. Either use the following example Build script file (saved as 
ResExtern . make) as boiler plate or use the Create BuildCommandS menu. 
It is important to include CHookc . c . o in the OBJECTS sections. CHookc . c . o is the 
Resolve to FORTRAN hook. 


# File: 

# Target : 

# Sources : 

# Created: 


ResExtern. make 
ResExtern 
FHook.f Setup. f 

Monday, January 18, 1993 9:16:12 AM 


OBJECTS = CHookc. c.o FHook.f. o Setup. f.o yoursub.f.o 


FFLAGS = -q -k -N14 


ResExtern // ResExtern. make {OBJECTS} 
Link -t ' RsTl ' -c Rslv d 
{OBJECTS} d 

"{ Libr curies}" Runtime. o d 
" {Libraries } " Interface . o 
" {FLibraries}"f77math.o d 
-o ResExtern 

FHook.f.o / ResExtern. make FHook.f 
f77compiler {FFLAGS} FHook.f 
Setup. f.o / ResExtern. make Setup. f 
f 77compiler {FFLAGS} Setup. f 
yoursub.f.o / ResExtern. make yoursub. 

f77compiler {FFLAGS} your. sub. 


d 


f 

f 


Running Create BuildCommandS 

1. Select Create BuildCommandS... underthe MacFortran menu. 

2. In Program Name type the name of the file used in the file Jext argument of 
the get external function. In the above example the Program Name is 
ResExtern. 

3 Click on the Source Files... button and select the function and subroutines that 
will be linked together. These include FHook.f and Setup, f as well as your 
subroutine. 

4. Click on CreateMake 

5. Open the file "Program Name". make (in the above example it would be 
ResExtern. make) and change the following: 

Add -N14 -k next to FFLAGS -q, separated with only a space. 

Add CHookc . c . o in the front of the OBJECTS list. 

Remove the line: filename ff filename.make Duplicate -r -y 
"{FLibraries}F77mrwe.o" filename 
Change the APPL to ' RsTl ’ 

Change the '????' to ' Rslv ’ 
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STEP 6 

STEP 7 
STEP 8 
STEP 9 
STEP 10 

STEP 11 
STEP 12 

STEP 13 
STEP 14 

STEP 15 


Remove -f -model far 
Remove the following libraries: 

" { FLibraries} " F77mrwe .o d 
" {FLibraries} "frtO.o d 

"{FLibraries}"f77io.o d . __ ... .. . 

Remove unnecessary libraries noted by the Linker. They will not cause a linker 

abort, but there will be a warning. 

If Linker reports 32K jump errors add -N8 and -Nil to the fflags list. 


Run Build... under the MacFortran menu. In the window type the program 
file name. 

Correct the code to remove any compile and linker errors and repeat STEP 6. 


Quit MPW 

Move the compiled function file into the same folder as the Resolve application. 
Launch Resolve 

Create a Button using button tool from tool palette. Name it Load (Edit, Button 
Info...) 

Open the button script (Script, Button Script) and write. 

GET EXTERNAL " sResExtern" ....... „ 

Replace the word ResExtern with the name of your compiled function tile. 

Close button script and save. 

Create a Button using button tool from tool palette. Name it Calculate (Edit, 

Button Info...) 

Open the button script (Script, Button Script) and write a Resolve script that 
defines your input variables, one output variable and a counter. Because Resolve 
External Functions can only return one value at a time you will have to create a loop 
and call your function once for each subroutine return variable you want. Your 
function call will include each of your input variables and the counter. The counter 
must be the last item in the list. Assign the return variable to the function (ie. x - 
function). For the first call to the function the counter must be equal to zero. The 
return value will be the first return variable. Therefore, the loop counter should go 
from zero to "the number of return variables”-l. The follow example is for the 
function FHook in the ResExtern file. FHook has 5 input variables and 7 output 
variables. The input values are located in cells B1 , B2 , B3 B4 and B5 on the 

spreadsheet. The return values will be placed in cells Cl, C2, C3, C4, C5, C6 

and C7 as directed by the PUT x statement. 


DEFINE a,b,c,d,e,n,x 
a = B1 
b = B2 
c = B3 
d = B4 
e = B5 
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FOR n = 0 TO 6 

x - ResExtern:FHook(a,b,c,d,e,n) 

PUT x INTO MAKECELL ( 3, n+1) 

END FOR 

Replace the word ResExtern with the name of your compiled function file and 
FHook for the name you specified when running Funcname. 

STEP 16 Close button script 

STEP 17 Press the"Load" button This loads the external function. 

STEP 18 Press the "Calculate" button to run the function 

STEP 19 Save worksheet. 

After following this procedure you will have two files to keep track of: 

• FORTRAN Function 

• Resolve worksheet 

To avoid operational problems keep these files in the same folder. Similarly there 
are FORTRAN files that should be kept together: 


• Function source code file 

• Any Subroutine source code files 

• Function .make file 


PROBLEMS 

The following are some special errors that may occur during the development 
process and some hints that may help to eliminate these problems. 


Compiling 

No special errors. 

Linking 

1 . Cannot modify 32 bit instructions. The object files were complied with the wrong 

compiler settings. Delete all of the. f.o object files and re-run the Build. 

2. Cannot make 32K jump. Add -N8 and -Nil to the FFLAGS list. Delete all of the 

.f.o object files and re-run the Build. 

Resolve 

1. Invalid argument. CHookc.c.o was written to check for non-numeric input 
variables. This error means that a non-numeric value has been entered an input cell 
of the spreadsheet. 

2. Can not open function. 

Check the function name in the script to be sure it is the same name as specified 
in Setup. f. 
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Check that the function file is in the same folder as the Resolve application. 

Use Open -Tool: mySFGetFile external function. See next section for more 
information. 


Open - Tool smySFGetFile 


A useful tool for finding a file while running a Resolve script is the external 
function mySFGetFile. This function will open a standard Open File window 
and allow the user to find the desired file. This function returns the full path name 
of the file which can be used with file functions to load or open the file. The 
function mySFGetFile is located in the file Open -Tool. This file comes with 
Resolve and is located in the folder External Examples within the Resolve Samples 

There are many ways to setup your Resolve folder, but for simplicity and this 
example create a folder named Externals and place it in the same folder as the 
Resolve application. Move or copy the Open -Tool file into the Externals folder. 
Now the script line: 

GET EXTERNAL Externals: Open -Tool" 

will load the Open*Tool mySFGetFile function. The form of the function is: 

Open • Tool : mySFGetFile ( <prompt string>, "<f ile typel>" , "<file 
type2>" , "<file type3>" , "<file type4> ) 

were file typel, file type2, file type3 and file type4 are file type filters 
(e e PICT APPL TEXT, etc). These filters will cause files of the type specified 
to appear in the Open dialog. If no filters are passed, files of all types will appear. 
In the case of Resolve external functions the file type is RsTl. The following 
example shows how the script in STEP 15 would be written when the 
mySFGetFile function is added within an error handling routine (ON ERROR). 


DEFINE a, b,c,d,e,n,x, fullpath 
a = B1 
b - B2 
c = B3 
d = B4 
e = B5 

GET EXTERNAL " : Externals : Open • Tool " 

GET EXTERNAL "ResExtern" 

FOR n = 0 TO 4 

x = ResExtern:FHook(a,b,c,d,e,n) 

PUT x INTO MAKECELL( 3 , n+1 ) 

END FOR 

ON ERROR 

y = LError ( ) 

IF(y = 61) 

fullpath = 'Open -Tool: mySFGetFile' ("Please find 

. _ _ , H H T"k _rn1 ” » « « « " " \ 

ResExtern • / RsTl § / / ) 

GET EXTERNAL fullpath 

END IF 
IF(y = 12) 
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SOUND EFFECT "Monkey" 

SOUND EFFECT "Monkey" 

SOUND EFFECT "Monkey” 

MESSAGE SError() 

ABORT 

END IF 
END ERROR 

The mySFGetFile function can also be added to the resource fork of the 
spreadsheet. To do this requires ResEdit and a knowledge of how to use it. 
WARNING: Misuse of ResEdit can cause irreparable damage to files and 
applications. 
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Purpose: 


This User guide is to lead a person with limited knowledge of Mac programing 
through the steps necessary to turn a FORTRAN subroutine into an Excel external 
function. This guide assumes that the user has a little familiarity with the Absoft 
FORTRAN compiler and Microsoft Excel. For more information refer to the 
MacFortran II Reference Manual and to the Excel User Guide, Function Reference 
and Microsoft Application Note: ME0333. 


INTRODUCTION 

Microsoft Excel versions 2.2 and above have the ability to call external code 
resources that can be used as spreadsheet functions. A "Code Resource is an 
assembly language code with the proper data handling that allows it to be called or 
linked to other code. There are many different types of code resources but for this 
application the resource needs to be type CODE. Apple Technical Note #256 has 
additional information on code resources but it is not necessary to read if the 
examples of this note are followed. 

Note: The Absoft MacFortran II compiler creates code that requires an FPU. 
Therefore, the code development described here will not work on some of the older 
Mac's (Plus,SE) and some of the newer ones without FPUs (Classic, LC, SI, 
Centris). 
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STEP 1 Launch MPW 

STEP 2 Open (File, Open...) and change your FORTRAN subroutine so that it meets t e 

programing rules. 

Programing Rules 

• No global or static storage: FORTRAN programs can have no COMMON, BLOCK 
DATA, or SAVE statements and the -s compiler option cannot be used to force static 

storage. 

• No FORTRAN I/O statements: see the following list. A lack of I/O is a serious 
limitation, but I/O is often for user interaction which is the function of Excel. 


ACCEPT 

OPEN 

BACKSPACE 

PAUSE 

CLOSE 

PRINT 

DECODE 

READ 

ENCODE 

REWIND 

ENDFILE 

STOP 

FORMAT 

TYPE 

INQUIRE 

WRITE 

NAMELIST 



• No run time error messages: some compiler options such as the "Check array 
boundaries" option, -C, and the subprogram folding options, -z and -Z, can 
generate a run time error message. A CASE statement with a missing CASE 
DEFAULT can also cause a run time error unless the -N4 option is used. 


• No character constants: a statement such as 

CHARACTER* 2 6 myString myString = 'I paid my taxes on April 7. 

will cause a linker error. Using character* 1 arrays initialized with data 
statements or char ( ) functions can be used to create a character constant. 


STEP 3 Create (File, Neu>) an Excel to FORTRAN interface function. The following 

function can be used as a boiler plate code. This example program is saved as 
xfunc. f. 

PASCAL INTEGER* 4 FUNCTION MAIN (in) 

c This function works as a Integer function in EXCEL with "KK" type_text. 

STRUCTURE /inlist/ 

INTEGER* 2 row 
INTEGER* 2 col 
REAL* 8 ary(lOO) 

END STRUCTURE 

STRUCTURE /outlist/ 

INTEGER* 2 row 
INTEGER* 2 col 
REAL* 8 ary(lOO) 

END STRUCTURE 
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l This is the input list from Excel. 


IThis is the output list from the 
1 FORTRAN program. 
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RECORD /inlist/ in 
RECORD /outlist/ out 

c This is the declaration of arguments for the FORTRAN subroutine. 


real* 8 argl,arg2,arg3,arg4,arg5,arg6 


c 

c 

c 

c 

c 

c 

c 

c 


If your subroutine needs other type of variables 
etc . ) use the appropriate conversion function to 
Here are some examples 


(real*4, integer, 
avoid passing garbage 


a = SNGL(ary( 1) ) 
b = IDINT(ary(2 ) ) 
c = IIDINT(ary(3) ) 
ary ( 4 ) = DBLE (d) 


jfrom real*8 to real*4 
Jfrom real*8 to integer*4 
Ifrcan real*8 to Integer*2 
1 any to real* 8 


argl = in. ary ( 1 ) 
arg2 = in.ary(2) 
arg3 = in. airy (3) 


l This is the setting of the subroutine 
l arguments . Add more statements as 
las needed. 


c Calling your subroutine. Change this call as necessary to match 
c your subroutine . 


call yoursub ( argl , arg2 , arg3 , arg4 , arg5 , arg6 ) 

out row = 3 IThis sets the worksheet area, 

outlet = 1 ! Adjust as needed. 


out. airy ( 1 ) = arg4 IThis sets the output array 

out . ary ( 2 ) = arg5 l with the appropriate 

out.ary(3) = arg6 1 subroutine arguments. 

c The last thing to do is set the function values to the structure 
c pointer. No need to change this statement. 


MAIN = LOC ( out ) 

return 

end 


The STRUCTURE in this function would be good for any combination of arguments 
where row*columns <= 100. The record declaration is necessary to assign the 
name "in" to the structure "inlist". The variables are now referred to with the 
prefix "in." (in. row, in. col, in.ary(l), ...). The values in ary are arranged 
as such: 


ary ( 1 ) = row,, col, 
ary ( 2 ) = row,,col 2 


ary(m) = row,,col m 
ary(m+l ) = row 2 ,col, 


ary(n*m) = row n ,col m 


~ ~ ~ “ Page 3 of 6 

FORTRAN external functions for Microsoft Excel and Absoft MacFortran II 


Printed: Wednesday, March 10, 1993 



STEP 4 Create a Build script. Either use the following example Build script file (save as 
xfunc.make) as boiler plate or use the Create BuildCommandS menu. 

# File: xfunc.make 

# Target: xfunc 

# Sources: xfunc. f your sub. f ... 

# Created: 

# Add to this OBJECTS list all necessary subroutines 
OBJECTS = xfunc. f.o yoursub.f.o 


FFLAGS = -q -N14 -k 


xfunc // xfunc.make {OBJECTS} 

Link -t XLLB -c XCEL -rt CODE=128 
{OBJECTS} d 

# This library list can be modified to 

# libraries 

"{Libraries}" Runt ime.o d 
" { T.i h rari es} " Interface . o d 
" {f T.i h raries} "F77stubs .O d 
"{FLibraries}"frt0.o d 
" {FLibraries}"f77io.o d 
" {FLibraries} "f77math.o d 

-o xfunc 


-m MAIN -sg main d 
remove unnecessary 


xfunc .f.o / xfunc . make xfunc . f 

f77compiler {FFLAGS} xfunc. f _ 

# Repeat the next two lines for each subroutine and change 

# your sub to each of the subroutine names 
your sub • f • o f xfunc • make your sub • f 

f 77compiler {FFLAGS} yoursub.f 


Running Create BuildCommandS 

1. Select Create BuildCommandS... under the MacFortran menu. 

2 In P ro Q ra m Name type the name of the file used in the file_text argument of the 
REGISTER or CALL function. In the above example the Program Name is 
xfunc. 


3. In the Program Type box select Code Resource 

4. In the box next to Creator put HCEL. (Note characters must be all upper case.) 


5 . In the box next to Type put HLLB. (Note characters must be all upper case.) 

6 . In the box next toMainEntryPoint type the name of the FORTRAN function 
Must be all upper case. This is the name used in the resource jext argument of the 
REGISTER or CALL function. In the above example the Main Entry Point is 

MATN. 
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STEP 

STEP 

STEP 

STEP 

STEP 

STEP 

STEP 


STEP 

STEP 

STEP 

STEP 


7. In the box next to Resource Type put C0DE=1 28 

8. Click on the Source Files... button and select the function and subroutines that will 
be linked together. The main function (the one called by Excel) must be first. In the 
above example xfunc . f is the main program and yoursub. f is a subroutine. 

9. Click on CreateMake 

10. Open the file "Program Name" .make (in the above example it would be xfunc .make) 
and change the following: 

Add -N14 -k next to FFLAGS -q, separated with only a space. 

Change the word next to -sg to the same name as the -m option only all lower case. 
When this link is run any unnecessary libraries will cause a warning message. 
They will not cause a linker abort, but there will be a warning. The 
unnecessary libraries can be removed for the library list. (See above example) 

5 Run Build... under the Mac Fortran menu. In the window type the program 
file name. 

6 Correct the code to remove any compile and linkers errors and repeat STEP 5. 

7 Quit MPW 

8 Move the compiled function file into the Excel folder. 

9 Launch Excel 

10 Open a new Macro sheet. (File, Neui...) 

11 Create the following macro: 



R 

1 

load 

2 

=REG ISTERC Hfunc", "MfllNY'KK") 

3 

=RETURN0 


Replace the word Hfunc with the name of your compiled function file. 

12 Select cell A1 and then select Define Name under the Formula Menu. Select 

the Command button and type p in the box next to Key:. Click OK. Now 
pressing "option + A + p" will load the external function. 

13 Save this Macro sheet as load. Hfunc using Saue Rs... 

14 Press "option + A + p". This loads the external function. 

15 Press " A + ' ". In A2 a number should be there, if not there is something wrong 
with the REGISTER arguments, the Build script or the interface code. Check for 


Page 5 of 6 Printed: Wednesday, March 10, 1993 


FORTRAN external functions for Microsoft Excel and Absoft MacFortran II 




consistency between names and arguments. Press " 4 + ' " again to return to 
normal display. 

STEP 16 Create your worksheet and select the appropriate output range for your function and 

type in a CALL function with load.Xfunc!$fl$2asthe register _text and the 
appropriate input range. Enter the function by pressing "4 + enter" (This entry 
method is necessary for any Excel array function). The following is an example for 
a function that has a 3 cell input range and a l-by-3 (rows by columns) output 
range: 



R 

1 

1 

2 

2 

3 

3 

4 


5 

=CRLL(load.xfunc!$R$2,R1 :R3) 

6 


7 

1 


The double box is the selected area. Cells A5, A6 and A7 are now the return array. 
STEP 17 Save the worksheet. 

STEP 18 Select Define Name under Formula menu 
In the Name: box type auto_load 
In the Refers to: box type load.xfunclload 

Click Rdd 
Click Ok 

STEP 19 Save worksheet. 

Now when the worksheet is opened the Macro sheet will automatically be opened 
and executed, loading the external function. 

After following this procedure you will have three files to keep track of: 

• FORTRAN Function 

• Excel worksheet 

• Excel Macro sheet 

To avoid operational problems keep these files in the same folder. Similarly there 
are FORTRAN files that should be kept together: 

• Function source code file 

• Any Subroutine source code files 

• Function .make file 
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